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POLICY STATEMENT 


ATARI COMPUTER ENTHUSIASTS 
EUGENE, OREGON 
Kirt E. Stockwell 
President 


As we start another year of meetings and activities, | want to take 
this opportunity to restate some of the club's basic policies. 

The primary purpose of the ACE is to promote intelligent use of the 
personal computer in the home and educational environment. We 
believe the computer can be used to augment traditional educational 
programs, as well as eventually becoming a major educational tool. 

We also believe computer technology has reached the stage at 
which normal, everyday american families can genuinely benefit by 
the use of the personal computer. The speed and storage limitations 
previously relegating personal computers to the realm of 'expensive 
toy' have largely been overcome. 

Without software, the computer is useless. There must be incen- 
tive for the creation, testing and sale of software. It takes lots of time 
and energy to develop programs to be sold. Publishers need a market 
for a product large enough to make a profit from the sale of software. 
Finally, local dealers need to be able to sell enough of each piece of 
software to justify tieing up cash to maintain an item in inventory. 

You have read in these pages we (spelled 1) believe the software 
publishing companies are mistaken in their pricing structures. | have 
talked with several publishing firms and have heard some pretty lame 
excuses for exhorbitant pricing structures. For the time being we will 
have to live with the fact of high prices. It may help to realize the 
prices (theoretically) can drop as volume rises. 

This brings us to the topic: PIRACY. 

Piracy is a crime punishable by imprisonment or fine. The ATARI 
COMPUTER ENTHUSASTS of EUGENE condemns piracy and, as 
always, will cooperate as fully as possible with authorities to 
eliminate pirates. 

Many of you know Atari has retained a well known and effective 
private investigator specializing in piracy. He has successfully 
assisted in the prosecution of hundreds of pirates. He is known to me 
and others only as ‘Mad Dog’. The nickname attaches because of his 
effectiveness and vindictiveness when it comes to pirates. His results 
reflect the enjoyment he finds in his work. Take warning: Do not con- 
sider piracy, it is not worth it. Do not think "they won't get me,’ 
because Mad Dog will get you. 

Pirates include individuals, retail organizations, user groups and 
others. No matter the form, pirates violate the rights of others. Con- 
sider: You work a long time to develop a program to have it published 
and make a few bucks. Then your profit, hardwork and respect all 
disappears because of some pirate, a criminal. Mad Dog will be 
organizing a 24 hour BBS for those out there wanting to help combat 
piracy. 

Aside from theft violating the programmer's rights, piracy also 
causes higher prices. The large number of computer owners is grow- 
ing. This will encourage more programmers to make commercial pro- 
grams because the potential sales volume is so large. Pirates operate 
to reduce the size of the commercial market. This reduces sales and 
profits. So prices are kept high in order to gain a reasonable profit. 

Some pirates attempt to gain acceptance from prospective 
customers by implying they are affiliated with respected clubs, 
groups, or persons. Some even impersonate respected persons. This 
causes problems for the individual, group, or club. It also causes pro- 
blems for the general public because they don't know who to trust. 

Many local ACE members are developing software intended for 
publication. Several have already published progams. As authors and 
potential authors, we understand the damage pirates cause to a 
creator. 


NEWS AND REVIEWS 


by Mike Dunn, Co-Editor 


Hope you have all had a nice summer. By now all the information 
about the new Atari computers and new management should be 
known to you all. Imagine losing 312 Million dollars. None of the new 
ones are out yet, as far as | know, but Atari 800s are available for very 
low prices; it is probably now just as cheap to get an 800 than to 
upgrade a 400. Although І have not seen it yet, there is a new book call- 
ed "Free Software for the Atari" by David Heller describing our club, 
and we have been getting many inquires from readers — thanks! I will 
review it when І get a copy, unless one of you do it first. As we con- 
tinue to improve our newsletter, our costs go up, so we are going to 
have to have a modest increase in dues — to probably $12 or maybe 
$15, starting next month. If you renew now, you can save the increase 
— we are still one of the least expensive Atari Clubs. 


We have received many nice books the last month. For general use, 
for those just familiar to BASIC as well as fairly advanced users, is a 
very nice book from Reston Publishing Co. (11480 Sunset Hills Rd., 
Reston, VA 22090). It is a new book on Atari Graphics called Designs 
from Your Mind with Atari Graphics by Tom Rowley ($12.95). Written to 
help you become a computer artist, this book includes not only the 
usual material about all the Atari Graphic modes, character sets, PM 
Graphics, etc., but also much about composition of your art, anima- 
tion, one and two point perspective, custom display lists, and other ad- 
vanced topics. It even includes screen design worksheets for each 
graphic mode. A very nice book to have. 

Reston has also come out with the first book in their new Software 
Integration Series, The DIF File by Donald Bell ($15.95). This series is 
devoted to books explaining how to integrate various different soft- 
wares. The DIF file is the format now used by VisiCalc and many other 
programs. Developed by Bob Frankston of Software Arts, it is a soft- 
ware format allowing various types of software to exchange informa- 
tion. An interesting sidelight is that when ViscCalc first came out, it 
was available for only the Apple, and many bought the Apple to get the 
program. The original Apple version did not have the DIF format; and 
when the Atari version was released it was one of the first to use this 
format. The Apple version has been upgraded several times since; but 
unfortunately, the Atari version is the same. This book explains how to 
make and use DIF files, how to integrate them between various pieces 
of software, and how to write your own software to use the DIF files 
generated by VisiCalc. If you need to know this, you will learn all you 
need in this well written and clearly explained book. 

Another new Reston book is ComputerTown ($12.95) by Liza Loop et 
al. It is a “How to" manual on how to start a non-profit computer town 
for your community as started in Menlo Park, California, to bring 
"Computer literacy to YOUR community". Besides the expected 
chapters on why and how to organize, it has chapters on fund-raising, 
writing proposals and grants, plans on building learning centers and 
easy to build furniture. It evens includes a section on how to keep your 
equipment running. 

ELCOMP (53 Redrock Lane, Pomona, CA 91766), the German based 
publisher, has just released a translation of Hackerbook for your Atari 
Computer by H.C. Wagner. This book has an incredible amount of in- 
formation packed into it for advanced programmers and “hackers”. 
Mostly filled with "very important subroutines in machine language", 
it covers such subjects as the CIO with machine language subroutines 
and how to use them; making bootable programs and bootable car- 
tridges; building and programing an EPROM burner; changing devices; 
making a serial or parallel interface using the joystick ports with 
machine language programs to make them work; and much other 
machine language and hardware information just not available 
anywhere else. They also sell kits and circuit boards if you want to 
make the hardware projects easier. lm not sure of the cost, but most 
all of ELCOMP's products are very low priced, so | expect this book is 
also much too inexpensive for all that it contains! If your are a 
"hacker", be sure to get your copy!. 

One of our members (Jim Carr) in a nearby town has produced a 
book which indexes Atari related articles from ACE, A.N.A.L.O.G., AN- 
TIC, Creative Computing and COMPUTE! from April 1981 to March 
1983. Available to ACE members for only $6 from Valley Soft, 2660 
S.W. DeArmond, Corvallis, OR 97333, this is a wonderful time saver 
and very well done — І hope the author keeps it up. 

Synapse (5221 Central Ave., Richmond, CA 94804) has just announc- 
ed a new integrated series of application software which are intercom- 
patible. This series will include SynText, SynFile --, Syn-Trend, 5уп- 
Calc, Syn-Stock, Syn-Comm, Syn-Stat, Syn-Tax(not a pun!) and Syn- 
Mail. These will all use the Ахіоп 128K board, both 80 column boards, 
and double-density drives! | can hardly wait to review these. Look at 
Lotus 1-2-3! !! 

LJK (7852 Big Bend Blvd., St. Louis, MO 63119 has just announced 
large price reductions on all its products. For example, their excellent 
word-processor ROM is down from $200 to $100, making it very com- 
petitive with AtariWriter. Since Letter Perfect comes with a printer 
driver generator, it actually is cheaper and more powerful now. 1 call it 
a "Best Buy" at this time. DataPerfect is also $99 now, and they have a 
new spelling checking program, Spell Perfect for $79.95 which | have 
not seen yet, but if it's up to the usual high standards of LJK, should 
be a winner. 

Austin-Franklin 80 Column Board 
(Austin-Franklin Associates, 43 Grove St., Ayer, Ma 01432, $279) 

Several months ago, we began to see ads for the new Austin- 
Franklin Board promising to allow 80*25 character Screen, RGB color 
or monitor output, emulation of the DEC VT100, and compatability 
with most software. Because it seemed to be an ideal companion to 
my ATR 8000 and CP/M, | wanted to try one. After a very long wait, ACE 
Computer finally got some in, and | borrowed one. Unfortunately, the 
one | obtained had a very unstable image, as did others in the first 
shipment. They were sent back, and the replacements had the same 
problem. In the instructions it says you should not adjust anything, 
especially a certain thing. Since this seemed the most likely one to 


have been out of adjustment, we moved it а very tiny bit and everything 
became perfect. Now | could finally begin testing the unit. The picture 
on my Taxan amber monitor is very nice — the RGB output now re- 
quires a special adaptor cable costing $69.95. The unit works by plugg- 
ing it into your last slot on the 800, so you need a 32K, 48K or 64K 
board to free up the slot. To use the 80 Columns, you plug a ROM into 
the right slot; this emulates an ADM-3 and does not take up memory. 
The DEC V100 software is not yet available ($39.95). There is no re- 
quirement for software calls, as in the BIT-3. When we first received 
the unit, it did not work with the ATR-8000, but after a few calls, the 
company quickly designed a very nice ROM for the right slot, which 
works very well for the the ATR-8000 and CP/M. If you have the CP/M, 
this is a very worth-while investment. 

Many commercial programs will not work with this board in 80 col- 
umns. The board uses addresses in $D500 and $D600 pages, and also 
will not work with any programs using illegal entry points. None of the 
present word-processors, data-bases, VisiCalc, etc. will work. Most 
languages such as BASIC, MicroSoft BASIC, FORTH, and most 
assemblers, especially the ones from OSS work fine. Any software 
designed for BIT-3 will not work. Synapse's new integrated software 
and data-base series will work, as well as a new version of Letter 
Perfect, but | don't know when it will be availalbe. | will keep you 
posted on this fine product as more software becomes available. Right 
now, | recommend it only for the ATR-8000 owners with CP/M (very 
highly!!) and to avid programmers, or people who hook into main- 
frames a lot and use the Atari as a Terminal — the MicroBits Modem 
and Terminal program works very well with it. 


ATR 8000 News 


Speaking of the ATR 8000, the other exciting news is the release of 
MYDOS, an Atari DOS now available allowing you to use double-sided 
drives with an upgrade ROM (not quite available), 80 track disk drives, 
etc. The RS-232 handler is just about ready to ship also. SWP's ter- 
minal cartridge costs $29.95. Owners contact the company or locally 
L.J. Knoll at ACE Computers (343-5191) for details. The Co-Power-88, 
turning the Atari into a IBM-PC type computer is also working well, but 
only with “generic” MS-DOS software — not specific IBM-PC hardware 
dependent software. This seems to be the case with all the IMP-PC 
clones. 


NEW FROM ACE 


There are new several new items available from ACE. George Suet- 
sugu, 45-602 Apuapu St., Kanoehe, HI 96744, who bound all of the 
issues of ACE from the beginning to June, 1982 for $12, has now made 
available Best of ACE Book Volumn Il, July, 1982 to June, 1983 for the 
same price, and he includes a nice little surprise for all orders. For 
overseas members, please include extra postage for about 1 pound 
airmail. 

The second disk of 1983, Best of ACE disk vol 6 is now available 
from the ACE Exchange Library 374 Blackfoot, Eugene, OR 97404. Run 
by Aaron and Ron Ness, we are now able to supply high quality tapes 
made by the new interface/Stereo tape deck as reviewed by Larry 
Gold. Disk or tape is $15, and covers from June to Sept of 1983, in- 
cluding the latest TinyText2 and the PM Graphics Maker in this issue. 
Incidently, when requesting the ACE Exchange library list from the 
Ness’, please enclose 25 cents (50 cents overseas) in stamps — not an 
envelope as before! 

The latest Educational Disk #4 from our E.R.A.C.E. group is also 
now available for $10 — it is the best yet; please read the article by 
Robert Browning in this issue. 


ERACE 


ACE Educational disk No.4 


ERACE's educational disk #4 is now ready. We are very happy with 
the quality of the programs on this disk, and are sure you will find 
them entertaining as well as educational. 

The nine programs cover a wide range of subjects: 

MATH WARS by Andrew Acks, is a very interesting approach to 
math drill. (See the July/August newsletter for listing and review); 

ODDEVEN, PLURALS, NOUNS, and VERBS, by Wayne Real, are four 
odd man out games on numbers and parts of grammar. (Again see the 
last issue for more information); 

QUIZPRO, and COPYQUIZ, by Roy Dugan, are two programs written 
to be used on a system with a cassette player and 16K. These pro- 
grams were written so a teacher or parent with only a cassette player 
and 16K could write and give true-false or multiple choice tests. In- 
structions for using this program will be on the disk. This program is 
very special because it can be used on smaller systems. 

From the Spokane, Washington users group we received the follow- 
ing programs for the new disk: 

HANGQUOT is a variation of hangman in which you guess not only 
words but whole quotations; 


GEOQUIZ is a guessing game for the computer. You think of a coun- 
try and the computer tries to guess the right one. To narrow down its 
options it asks you questions which really make you think about the 
country; 

MOOMIND is a variation of Master Mind. You try to guess a hidden 
number, but here the computer will give you clues using bulls and 
cows. It’s a little different and a good logic game. 


Well, now that disk #4 is done, we can start on #5. But we are out of 
programs. If you have a program to share, whether it's a product of 
your own sweat and time, or a copy of a good public domain program, 
send it in. We all will like to see it. 

We also have 3 disks from Softswap which we are making available 
to interested persons. Write for more information on the educational 
programs on these disks. 

We want to thank ALL of those who have made ERACE disk #4 
possible. Thank you and on to #5. 


LOOKING AT LOGO 


by Ruth Ellsworth 


Our family had the opportunity to preview the new ATARI LOGO 
recently. We do not presently have either the documentation or car- 
tridge, so the technical information and programs to compare PILOT 
and LOGO will have to wait until next month. We can, however, give 
our first impressions after spending a couple of weeks experimenting 
with the language. 

The documentation package which will be included in the LOGO 
package is excellent. It includes a booklet teaching LOGO programm- 
ing through the use of turtle graphics, a reference booklet, and a sum- 
mary pamphlet of commands. The booklet teaching LOGO programm- 
ing is extremely well written and extensively illustrated. Due to my 
busy summer schedule, my ten and twelve year olds tackled the 
booklet on their own and did not require any help at all from me to 
complete it well before І had the time to begin. In our opinion, even 
those unfamiliar with computers or computer languages will find the 
documentation easy to use and understand. 

ATARI LOGO turtle graphics are superb, and the most exciting thing 
to come to our home in a long time. The children liked the LOGO turtle 
better than the PILOT turtle. One of our sons has not been very in- 
terested in programming, but even he was enchanted by it. | think 
there are several reasons for this: The LOGO turtles are cute little 
fellows one can see. There are four of them which can move at dif- 
ferent speeds and have collisions if desired (anyone whose children 
suffer from Star Raider's wrist or Galaxian's glare can understand the 
significance of this discovery!). And the increments in LOGO allow the 
children to use larger numbers to move the turtle. This last item may 
not seem like much, but the children were delighted to make the turtle 
go 100 steps and still be able to see it on the screen. 

LOGO is to PASCAL and LISP as PILOT is to BASIC. There are no 
line numbers in LOGO, and modules, called procedures, are defined 
and called within a program. It has the ability to redefine functions as 
in FORTH or PASCAL. For someone who is not trained in programm- 
ing or mathematics, to me it had a comfortable almost verbal feel once 
І began to work with it. 

Now comes the $64 question (or should | say $99 question). What 
should | buy, LOGO or PILOT? Next month | should have a LOGO 
package and will do a detailed comparison. For now, the answer to 
this question in simplistic terms depends upon what one needs. If 
one plans or needs to prepare standard curriculum type materials, or 
anything requiring much matching in a program, ATARI PILOT is the 
language to buy. If, on the other hand, one needs to write programs 
dealing with symbol manipulation, or complex data structures, LOGO 
is the language of choice because those sturctures do not have to be 
encoded in mathematical terms or strings. This List capability which 
makes LOGO less mathematical, also seems to make it harder to learn 
than PILOT, although LOGO and PILOT graphics are equally easy. 
Thus, if one is pressed for time, PILOT has an initial advantage in my 
opinion. 

For me, the answer is | want to have both LOGO and PILOT. ATARI 
has done an excellent job in preparing and packaging both languages, 
and if one can afford them, they are well worth the money. 


CHARTING A COURSE IN PILOT 
by Ruth Ellsworth 


In our home we like to think writing a program is a little like writing а 
book. Every chapter covers a set of ideas or events, and has a beginn- 
ing and an end. Programs are made of "subroutines", called modules 
in PILOT. Like the chapters of a book, each contains an idea (routine or 
procedure) the program uses, and must have a beginning and an end. 

A fun way to learn about and practice programming with modules is 
through writing adventure type programs. | am not going to include a 
complete adventure program with this article (they can be as endless 
as the programmer chooses). Instead, | am going to use adventure 
type modules like the ones my children write to demonstrate how to 
use the U:, J:, M:, TY:, NY:, EY:, EN:, and JM: commands. | hope this 
will encourage creative learing on the part of other beginners as they 
have for our family. 

Each module in a program has an * followed by the name of the 
module. The name line is NOT numbered. After the name, the body of 
the module which follows is numbered by line, and concluded with an 
E: It is important to put the E: at the end of each module because the 
computer will run though the modules which follow, or if it is not told 
to jump elsewhere. The E: also makes programs neater and easier to 
read. 

Most of the PILOT programs appearing in the ACE Newsletter do 
not start with a module. Before the program begins it is necessary to 
set any counters or constants (things which will not change), and call 
the graphics mode in a graphics program so there will be no stray cur- 
sor on the screen. The title may be included either in a module, or as 
part of the beginning of the program before any modules are called. 

In the program which follows one will note the modules do not 
follow in the order in which they will be used. For example, *HANDOM 
is listed before *TITLE, AND *HELP; although *TITLE, AND *HELP are 
used by the program first. In order for PILOT to run as fast as possible, 
those modules which will be used most often should be placed near 
the beginning of the listing. Every time a module is called, PILOT 
starts from the top and looks through the listing until it finds the 
module called. 

Both the U: and J: commands are followed by the *name of a 
module. The U: command stands for Use Module, and the J: com- 
mands stands for Jump (to Module). The important difference between 
them is that U: will return the program to the module from which it 
came. For example, see the *ROOM1 module which U:*DOORS before 
it proceeds to ask the adventurer his choice. A U: can only repeat eight 
times before it returns an error message. 

The J: does not return the program to the module which called it. 
We like to think of the J: as resetting the internal counter each time it 
is called so a module can be reused indefinitely. At first my children 
wondered why they could not just use the J: command. Can you figure 
out why the U: command is more useful in some cases? (Hint: look at 
the use of the *DOORS module. What happens if J:*DOORS is used?) 

The M: command checks to match an answer (input) from the user 
to an answer (input) wanted in the program. Numbers, words (strings), 
and even bytes in the computer's memory can be checked using the 
M: command. (If you have the ACE Christmas PILOT disk, the 
FLOWCOL program illustrates the use of the M: command to match 
bytes.) If more than one item is to be matched they must be separated 
by commas or а |. 

There are several useful commands which go with the M: command. 
The TY: command stands for Type if Yes there was a match,and the 
TN: command stands for Type if No match. Similarly EY: stands for 
End if Yes there was a match, and the EN: command stands for End if 
No match. 

The command we use most often with the M: command is the JM: 
command which stands for Jump on Match (to a named module). Each 
JM: module listed must be paired to an item in the M: statement. The 
JM: command matches the items in the M: in the order given. The first 
item is matched by the first module name listed in the JM: statement, 
and so forth. 

Writing programs in modules is good programming practice. Like 
plotting a course in flying an airplane, each program should be plann- 
ed ahead. Good pilots take the time to figure out what their program 
will do and how they wish to travel through it. Not only does modular 
programming save time debugging, but it saves much typing if 
modules are saved individually. This way they can be used as is or 
modified for new programs. 


TINY TEXT 2.0 


One of the nicest things about Tiny Text is it can easily be modified 
to suit one's needs. | have added a few more features І feel Tiny Text 
needs. First of all, get out your copy of Tiny Text 1.1 and type in the 
lines as listed in Listing 1. The new features added to Tiny Text are: 

CTRL-D can be imbedded in the text in exactly the same manner as 
CTRL-M is. CTRL-D is used to set the line spacing — useful for single 
spacing quotes in a document otherwise double spaced. The number 
after CTRL-D is the spacing. If you want single spacing, type 
[CTRL-D][1][!]. If you want double spacing [CTRL-D][2][!], and so on. 

While editing, the trigger button on the joystick may also be used to 
get you to the top of the text. Simply push the trigger once and you're 
at the bottom; again and you're at the top. 

When you are faced with the SET FORMAT CONTROLS table, two 
more parameters await your adjustment. The second new one, LINE 
INTerval, sets the line spacing as explained above. The first, PAGE 
NUMbering, gives the option of page numbering. A 0 here means no, a 
1 means yes. If you put a 1 there, you will be asked for a page heading. 
If you simply type the return key, only "Page x" will be right justified 
on the top of each new page. If you enter a heading (e.g. "Rat Problem 
in Alberta"), it will be printed just before a slash and the page number 
(e.g. "Rat Problem in Alberta/Page 4”). You can also opt for using 
single sheets. If you do, Tiny Text will sound a tone and wait for you to 
insert the sheet and push a key before it starts printing again. 

At any time during displaying or printing you may freeze the com- 
puter by pushing any key. The border will change color to let you know 
that you have stopped the presses. To resume, simply push any key. 

In order to speed up printing, screen output is disabled by POKEing 
559 with 0. This speeds up things considerably, many sources Say up 
to a 3096 speed increase can be realized. This could be used to speed 
up any programs when the user doesn't need to see the screen. 
Screen output is turned back on by POKEing 559 with its original value 
(usually 34). 

If you have a disk drive, enter in Listing 2. This adds a DOS section 
to Tiny Text. | recommend you enter it in as a separate program, and 
then merge it with Tiny Text for reasons ІЛІ get to a little further down. 

When you first enter the TINYDOS portion of Tiny Text by pushing 
START from within the program, you will be given an initial screen of 
files on the disk. An inverse video letter before the file indicates it is 
locked; normal video indicates an unlocked file. If not all the files fit on 
one screen, pushing the space bar will get you the next batch. OP- 
TION will exit you back to Tiny Text. SELECT, followed by a letter, will 
lock or unlock the file, depending on its state at the time. START 
followed by a letter will delete the chosen file. You will need to push 
the Y key to confirm each deletion, however. Pushing START and 
SELECT simultaneously followed by any key will get you into the 
rename portion, which requires you to enter the following string: 
*D:the old filename and extension, the new filename and extension". 

You may notice the DOS routine seems to take its time. The reason 
is a tradeoff had to be made between speed and memory. Since we 
want as much memory for text as possible, | chose to sacrifice speed. 

Listing 3 contains changes which make Listing 2 into a run alone 
program which you could have automatically run (by using an 
AUTORUN.SYS file) when you boot up with a disk. The only functional 
change made is you can push OPTION, followed by a key, to RUN any 
BASIC SAVEd program. 

While Tiny Text is starting to get fairly untiny, | feel the power it has 
gained is very much worth the slight loss of memory. 

— Dale Lutz 
Holden, Alberta, Canada 





10 ReTHIS IS AN EXAMPLE ОҒ SOME OF Tne 
TYPES OF MODULES THAT CAN BE USED IN 

АМ ADVENTURE PROGRAM. 

20 R:YOU WILL HAVE TO ADD MODULES FOR 

ROOMS 2 TO 4, CAVE, MOUNTAIN, SWORD, A 

ND ARROWS IF YOU WANT TO RUN IT. 

30 R:TO TRY ІТ OUR WITHOUT ADDING THOS 

Е MODULES, SUBSTITUE *ROOM1 FOR *RANDO 

M ON LINE 890, 

- 4D R:DO NOT CHOOSE A DOOR THE FIRST 

50 R:TIME, AND CHOOSE DOOR 2 OR NO DOO 

R THE SECOND TIME YOU ARE ASKED TO CHO 

OSE A DOOR. 

60 R:SET ANY COUNTERS BEFORE YOU LIST 

THE PROGRAM BEGINNING OR FIRST MODULES 

70 В:00 NOT FORGET TO PRESS START WHEN 
THE TITLE APPEARS TO MAKE THE PROGRAM 
CONTINUE. 

80 *START 

90 U:*TITLE 

100 U:*HELP 

110 Es 

120 *RANDOM 

130 С:#В=?+5 

140 J(#R=1):*ROOM 

150 J(#R=2):*ROOM2 

160 J(fR-3):*ROOMS 

170 J(#R=4):*ROOM4 

180 J(#R=0) : *КАМООМ 

190 E: 

200 *ROOMI 

210 7:7 

220 U:*DOORS 

230 T:YOU ARE IN А ROOM ШІТН 3 DOORS. 

240 T:UHICH DOOR DO YOU СН005Е? 1, 2, 
OR 3 

250 А: 

260 М:1,2,3 

270 JM:*CAVE, *MONT , *RANDOM 

280 TN:A MONSTER IS NEAR BY 

290 T:DO YOU CHOOSE TO FIGHT? 

300 M:Y 

210 TY:CHOOSE A WEAPON. 
US 

320 А: 

330 M:SUORD, ARROWS 

340 JM: *SUORD, *ARROWS 
350 TN:YOU MUST CHOOSE А DOOR. 
OR 3 

360 А: 

370 М:1,2,3, 

380 ЈМ: *RANDOM, *FRIEND, *CAVE 
300 TN:THE MONSTER WINS, BETTER LUCK М 
EXT TIME. 

400 E: 


SWORD OR ARRO 


Т 23 


| 560 T: V V 


Ruth Ellsworth: PILOT 


410 *ROOMA 
420 1:1 
430 T:THIS-IS THE TREASURE ROOM. IN T 
НЕ CHEST YOU UILL FIND GOLD AND A KEY 
TO THE WAY OUT. 
440 T:CONGRATULATIONS! 
450 E: 
460 *DOORS [THESE ARE ALL CONTROL CHAR 
ACTERS 
470 Т: MMMMMMMM 
ММ 
480 
V 
490 
V 
500 
V 
919 4% 
V 
520 
TV 
530 
V 
540 T: 
V 
550 T: 
V 


COME AGAIN. 


MMMMMMMM МІГ 


VQUEQUE М V 


VQuEQUE V ^ VASDASD V V 


: VASDASD V  VASDASDV М 


VZXCZXC V VASDASD V V 


TV | VASDASDTV V 


: VQuEQUE V VASDASD V V 


VASDASD V X VASDASD V V 


VZXCZXC V  VASDASD V V 

VASDASD V V 
V 

570 T: M V 
V 

580 T: V V 
V 
590 
NNN 
600 E: 

610 *FRIEND 

620 7:1 

630 T: 

640 T: 

650 T: 

660 T: 

670 T: 

680 T: 

690 Т:. 

700 T: 

710 T: 

720 T:HERE IS A FRIEND TO HELP YOU. H 
E WILL LET YOU CHOOSE ONE OF TWO ROOMS 
. ONE OF THE ROOMS HAS THE TREASURE. 
730 Т:ШНІСН ROOM WILL YOU CHOOSE? 1 0 
R2 

740 А: 

750 Met ye 

760 JM:*ROOM , *ROOM4 

770 Es 

780 *HELP 

790 GR:QUIT 

800 C:@B755=2 


VASDASD V V 


VZXCZXC V V 


T: NNNNNNNNNNN.. NNNNNNNNNNN | NNNNNNNN 


. 1000 


810 T:WELCOME TO ONE OF THE..CATACOMBS 
OF DAVID 

820 T:BY..MRS.ELLSUORTH AND DAVID ELLS 

WORTH. 

830 Т:ЕМТЕН YOUR NAME. 

840 A: $NAME 

850 T:THIS IS HOW YOUR ADVENTURE START 

ED? 

860 T:JCBS IN DAVIDVILLE ARE HARD TO C 

OME BY. 

870 1:50 ONE DAY YOU UENT TO TALK TO T 

HE TOUN WIZARD. 

880 T:HE AGREED THAT JOBS UERE HARD TO 
COME BY. 

890 T:HE STARTED RANDOMLY LISTING OUT 


. SOME THINGS YOU COULD DO. 


900 T:NOW YOU,$NAME, HAD NOT BEEN IN D 
AVIDVILLE FOR MORE THAN A MONTH 

910 T:WHEN HE SAID "THE DUNGEON OF DAV 
Tp" 

920 T:YOU FOUND YOURSELF IN A ROOM YOU 
HAD NEVER SEEN BEFORE. 

930 T:WATCH OUR FOR MONSTERS WHILE YOU 
HUNT FOR GOLD AND THE WAY OUT. 

940 PA:100 

950 J:*RANDOM 

960 Es 

970 *TITLE 

980 R:TITLE PAGE FOR PROGRAM 

990 C:@B1374=16 

C:@B1374=2 

WRITE:S,] 

Us*TITLE1 

is 

*TITLE1 

POS:2,5 

C:@B755=2 

WRITE:S,DAVID'S DUNGEON 

R:WAIT UNTIL START IS HIT 

PA:60 

1100 J(@B53279<>6):*TITLE2 

1110 J(@B53279=6 ) :*HELP 

1120 Ee 

1130 *ТТТЕЕ2 

1140 Р05:2,5 

1150 С:8В755-4 

1160 WRITE:S,DAVID'S DUNGEON 

1170 R:WAIT UNTIL START IS HIT 

1180 PA:60 

1190 J(@B53279<>6) : *TITLE1 

1200 J(8B53279-8):*HELP 

1210 E: 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 


E 


CUBES by Sydney Brown 


COMPCG 


COMPUTER 


ооо Шин BEN 


HOO MEN ШЕН 
nee 


OOO ШЕШ 





212 POKE 764,255 - 


Sodio the cube f ug рі. 


1 REM ки ХХХ 
2 REM ** ACE NEUSLETTER ** 
3 REM ** 2662 VINE MAPLE DR xx 
4 REM ** EUGENE, OR 97405 RF 
5 REM ** $10 YEAR жж 
Б REM Зе уз ОЗ 

7 REM ** CUBE жн 
8 НЕМ 5% Бу xx 
g REM ** 2. Вгошп Sept 1985 %% 


Yyyy% х»:; : X 
ЖЖЖЖ; 


10 ? "na" :DIM Ө (БЕЙ ның Коьк" 
100 POKE 106,PEEK(106)-2 

101 GRAPHICS 18:POKE 710,140:POKE 708, 
14:РОКЕ 709,222:POKE 711,58: A-PEEK (106 
)*256:FOR В-0 TO 511 

102 IF B»455 AND B«472 THEN READ D:POK 
Е A+B,D:NEXT В 

105 POKE Д«В,РЕЕК(57344-В):МЕХТ В:РОКЕ 
756,РЕЕК(106) 

120 MP-PEEK(88)«256*PEEK (89) 

200 POSITION 12,0:? #6; "сотрсо" :РОЅІТІ 
ON 11,1:? #63"computer";:POSITION 13,2 
:? #6; "сибе"; :POSITION 1,0:? #6;"B":PO 
SITION 0,1:? # 

201 POSITION 13,10:? #6; "МІХ "sPOSITIO 
N 13,112? #6; "СОВЕ": POSITION 1,2:? #6; 
"Е": 60508 900:J=3:POSITION 0,11:? #6;" 
3 " 

202 IF PEEK(53279)=5 THEN J=J+1:IF J>2 
О THEN 2-2 

203 POSITION 0,11:? /6;J;" "; 
53279)=6 THEN 300 

205 FOR W=1 TO 49:NEXT WsGOTO 202 

210 POSITION 13,10:? #63"FACE":POSITIO 
М 13,113? #63;"DIR."; 


HRKKHKKKHKKKRKKKKKREKE 


:IF PEEK ( 


215 IF PEEK(53279)=6 THEN 201 
216 IF PEEK(764)=255 THEN 215 
220 GET #1,Z:Z=Z-64:IF 7-2 OR 7-4 OR Z 
-6 OR 7-12 OR 7-18 OR Z=20 THEN 225 


224 GOTO 215 

225 POSITION 13,10 

226 IF 7-12 THEN ? #6;"left":Z=1:GOTO 
235 

227 IF 7-2. THEN 2 #6; "ВАСК":27-2:6070 2 
35 

228 IF Z=20 THEN 2 #6;"TOP ":2-3:60T0 
235 

229 IF 2-6 THEN ? #6;"FRNT":Z=4:GOTO 2 
29 

230 IF 7-18 THEN ? #63;"rght":Z=5:GOTO 
255 

251 IF 7-а THEN ? #6; "down": 2-6: 60T0 2 
95 

235 IF PEEK(53279)=6 THEN 201 

236 IF PEEK(764)-255 THEN 235 | 
257 GET #1,V:V=V-64:IF V=1 OR V=3 THEN 
240 


238 GOTO 235 
240 POSITION 13,11:1F V-1 THEN 2 #63"a 
6<<"s2Z=740 
241 IF V=3 THEN ? #63"cl>>"3 
245 ON 7 GOSUB 310,320, 330, 340, 350, 360 
410,420, 430,440, 450, 460 
299 GOTO 210 
300 FOR W=1 TO J:R=INT(RND(O)#12)+1:0N 
R GOSUB 310,320,330, 540, 550, 360,410,4 
20,430,440, 450, 460 
301 NEXT U:GOTO 210 
310 I-PEEK(P(1)):POKE P(1),PEEK(P(7)): 
POKE P(7),PEEK(P(9)):POKE P(9),PEEK(P( 
3)):POKE P(3),I 
311 I-PEEK(P(2)):POKE Р(2),РЕЕК(Р(4)): 
POKE P(4),PEEK(P(8)):POKE P(B),PEEK(P( 
6)):РОКЕ Р(6),1 
6 


312 I-PEEK(P(10)):POKE P(10),PEEK(P(54 
)):РОКЕ P(54),PEEK(P(28)):POKE P(28),P 

FEK(P(19)):POKE P(19),I 

313 I-PEEK(P(13)):POKE P(13),PEEK(P(51 
)):РОКЕ P(51),PEEK(P(31)):POKE P(31),P 
EEK(P(22)):POKE P(22),I 

314 I-PEEK(P(18)):POKE P(16),PEEK(P(48 
)):POKE P(48),PEEK(P(34)):POKE P(34),P 


 ЕЕК(Р(25)) :РОКЕ P(25),1 


518 RETURN 


* 320 I-PEEK(P(10)):POKE Р(10),РЕЕК(Р(16 


)):POKE P(18),PEEK(P(18)):POKE P(18),P 
EEK(P(12)):POKE P(12),I 


.321 I-PEEK(P(11)):POKE P(11),PEEK(P(13 
| )):POKE P(12), PEEK(P(17)):POKE P(17),P- 
EEK(P(15)):POKE Р(15),1 


322 I-PEEK(P(1)):POKE P(1),PEEK(P(19)) 
:РОКЕ P(19),PEEK(P(37)):POKE P(37),PEE 
K(P(48)):POKE P(46),I 

323 I-PEEK(P(2)):POKE P(2),PEEK(P(20)) 


. ¿POKE P(20),PEEK(P(38)):POKE P(38),PEE 


K(P(47)):POKE P(47),I 


2324 I-PEEK(P(3)):POKE P(3),PEEK(P(21)) 


:РОКЕ P(21),PEEK(P(39)):POKE P(39),PEE 
K(P(48)):POKE Р(48),1 

329 RETURN 

330 I-PEEK(P(20)):POKE P(20),PEEK(P(22 
)):POKE Р(22),РЕЕК(Р(26)):РОКЕ Р(26),Р 
EEK(P(24)):POKE Р(24),1 

331 I-PEEK(P(19)):POKE P(19),PEEK(P(25 _ 
)):POKE P(25),PEEK(P(27)):POKE P(27),P 
EEK(P(21)):POKE P(21),I 

332 I-PEEK(P(18)):POKE P(16),PEEK(P(9) 
):POKE P(9),PEEK(P(30)):POKE P(30),PEE 
K(P(37)):POKE P(37),I 

333 I-PEEK(P(17)):POKE P(17),PEEK(P(6) 
):POKE P(8),PEEK(P(29)):POKE Р(29),РЕЕ 
K(P(40)):POKE Р(40),1 


334 I-PEEK(P(18)):POKE P(18),PEEK(P(3) 


):POKE P(3),PEEK(P(28)):POKE P(28),PEE 


K(P(43)):POKE Р(43),1 


339 RETURN 

340 I-PEEK(P(29)):POKE Р(29),РЕЕК(Р(31 
)):POKE P(31),PEEK(P(35)):POKE P(35),P 
EEK(P(33)):POKE P(33),I 

341 I-PEEK(P(28)):POKE P(28),PEEK(P(34 
)):РОКЕ P(34),PEEK(P(38)):POKE Р(36),Р 
EEK(P(30)):POKE Р(30),1 


342 I-PEEK(P(54)):POKE Р(54),РЕЕК(Р(45 


)):POKE P(45),PEEK(P(27)):POKE P(27),P 
ЕЕК(Р(9)):РОКЕ Р(9),І 

343 I-PEEK(P(53)):POKE Р(53),РЕЕК(Р(44 
)):POKE P(44),PEEK(P(28)):POKE P(28),P 
EEK(P(8)):POKE Р(8),1 

344 I-PEEK(P(52)):POKE Р(52),РЕЕК(Р(43 
)):POKE P(43),PEEK(P(25)):POKE P(25),P 
EEK(P(7)):POKE Р(7),1 

349 RETURN 


350 I-PEEK(P(38)):POKE Р(38),РЕЕК(Р(40 
)):POKE P(40),PEEK(P(44)):POKE Р(44),Р 
FEK(P(42)):POKE Р(42),1 

351 I-PEEK(P(37)):POKE Р(37),РЕЕК(Р(43 
)):POKE P(43),PEEK(P(45)):POKE P(45),P 
EEK(P(39)):POKE P(39),I 

352 I-PEEK(P(18)):POKE P(18),PEEK(P(27 
)):POKE P(27),PEEK(P(36)):POKE P(38),P 
EEK(P(48)):POKE Р(46),1 

353 I-PEEK(P(15)):POKE P(15),PEEK(P(24 
)):POKE P(24),PEEK(P(33)):POKE P(33),P 
EEK(P(49)):POKE P(49),I 

354 I-PEEK(P(12)):POKE P(12),PEEK(P(21 
)):POKE P(21),PEEK(P(30)):POKE P(30),P 
EEK(P(52)):POKE P(52),I 

359 RETURN 


EEK(P(51)):POKE P(51),I 
361 I-PEEK(P(48)):POKE Р(46),РЕЕК(Р(52 
)):POKE P(52),PEEK(P(54)):POKE P(54),P 
EEK(P(48)):POKE Р(48),1 
362 I-PEEK(P(12)):POKE P(12),PEEK(P(45 
)):POKE P(45),PEEK(P(34)):POKE P(34),P 
EEK(P(1)):POKE P(1),I 
363 I-PEEK(P(11)):POKE P(11),PEEK(P(42 
)):РОКЕ P(42),PEEK(P(35)):POKE P(35),P 
EEK(P(4)):POKE Р(4),І 
364 I-PEEK(P(10)):POKE P(10),PEEK(P(39 
)):POKE P(39),PEEK(P(36)):POKE P(36),P 
ЕЕК(Р(7)):РОКЕ Р(7),1 
369 RETURN 
410 I-PEEK(P(1)):POKE P(1),PEEK(P(3)): 
POKE P(3),PEEK(P(89)):POKE Р(9) „РЕЕК(Р( 
7)):РОКЕ Р(7),1 
411 I-PEEK(P(2)):POKE P(2),PEEK(P(6)): 
POKE P(B),PEEK(P(8)):POKE P(8),PEEK(P( 
4))sPOKE P(4),I 
412 I-PEEK(P(10)):POKE P(10),PEEK(P(19 
)):POKE P(19),PEEK(P(28)):POKE Р(28),Р 
EEK(P(54)):POKE P(54),I 
413 I-PEEK(P(13)) :POKE. P(13) , PEEK(P(22 
)):РОКЕ P(22),PEEK(P(31)):POKE Р(31),Р 
EEK(P(51)):POKE Р(51),І 
414 1-РЕЕК(Р(16)):РОКЕ P(18),PEEK(P(25 
)):РОКЕ P(25),PEEK(P(34)):POKE P(34),P 
EEK(P(48)):POKE Р(48),1 
419 RETURN 
420 I-PEEK(P(10)):POKE P(10),PEEK(P(12 
)):РОКЕ Р(12) „РЕЕК(Р(18)) :РОКЕ P(18),P 
EEK(P(18)):POKE P(18),I 
421 I-PEEK(P(11)):POKE P(11),PEEK(P(15 
)):РОКЕ Р(15),РЕЕК(Р(17)):РОКЕ P(17),P 
EEK(P(13)):POKE Р(13),1 
| 422. 1-PEEK(P(1)) :POKE Р(1), РЕЕК(Р(46)): 
SPOKE P(46),PEEK(P(37)):POKE Р(37),РЕЕ. 
K(P(19)):POKE P(19),1 


SPOKE Р(47),РЕЕК(Р(38)):РОКЕ P(38) ,PEE 
K(P(20)):POKE P(20),1 


424 I-PEEK(P(3)):POKE P(3),PEEK(P(48)) 
:РОКЕ Р(48),РЕЕК(Р(39)):РОКЕ P(39),PEE 
K(P(21)):POKE P(21),I 

429 RETURN 

430 I-PEEK(P(20)):POKE P(20),PEEK(P(24 
)):POKE P(24),PEEK(P(28)):POKE P(26),P 
EEK(P(22)):POKE P(22),I 

431 I-PEEK(P(19)):POKE P(19),PEEK(P(21 
)):POKE P(21),PEEK(P(27)):POKE P(27),P 
EEK(P(25)):POKE P(25),I 

432 I-PEEK(P(18)):POKE P(16),PEEK(P(37 


)):POKE P(37),PEEK(P(30)):POKE P(30),P 


ЕЕК(Р(9)):РОКЕ Р(9),І 
433 I-PEEK(P(17)):POKE P(17),PEEK(P(40 


© )):POKE P(40),PEEK(P(29)):POKE P(29),P 
; ЕЕК(Р(6)):РОКЕ P(6),1 

360 I-PEEK(P(47)):POKE P(47),PEEK(P(49 : 
)):POKE Р(49),РЕЕК(Р(53)):РОКЕ P(53),P . 


434 I-PEEK(P(18)):POKE Р(18),РЕЕК(Р(43 
)):POKE Р(43),РЕЕК(Р(28)):РОКЕ Р(28),Р 
EEK(P(3)):POKE P(3),I 

439 RETURN 

440 I-PEEK(P(29)):POKE Р(29),РЕЕК(Р(33 
)):POKE P(33),PEEK(P(35)):POKE P(35),P 
EEK(P(31)):POKE P(31),I 

441 I-PEEK(P(28)):POKE P(28),PEEK(P(30 
)):POKE P(30),PEEK(P(38)):POKE P(36),P 
EEK(P(34)):POKE P(34),I 

442 I-PEEK(P(54)):POKE P(54),PEEK(P(9) 
):POKE P(9),PEEK(P(27)):POKE Р(27),РЕЕ 
K(P(45)):POKE Р(45),1 

443 I-PEEK(P(53)):POKE P(53),PEEK(P(8) 
):POKE P(8),PEEK(P(28)):POKE P(28),PEE 
K(P(44)):POKE P(44),1 

444 I-PEEK(P(52)):POKE Р(52),РЕЕК(Р(7) 
):POKE P(7),PEEK(P(25)):POKE P(25),PEE 
к(р(43)):РОКЕ Р(43),1 

449 RETURN 

450 I-PEEK(P(38)):POKE P(38),PEEK(P(42 
)):POKE Р(42),РЕЕК(Р(44)):РОКЕ Р(44),Р 
EEK(P(40)):POKE P(40),I 

451 I-PEEK(P(37)):POKE Р(37),РЕЕК(Р(39 
)):POKE P(39),PEEK(P(45)):POKE P(45),P 
EEK(P(43)):POKE P(43),I 

452 I-PEEK(P(18)):POKE P(18),PEEK(P(46 
)):POKE P(48),PEEK(P(36)):POKE P(36),P 
EEK(P(27)):POKE P(27),I 

453 I-PEEK(P(15)):POKE P(15),PEEK(P(49 
)):POKE P(49),PEEK(P(33)):POKE P(33),P 
EEK(P(24)):POKE P(24),I 

454 I-PEEK(P(12)):POKE P(12),PEEK(P(52 
)):POKE P(52),PEEK(P(30)):POKE P(30),P 
EEK(P(21)):POKE P(21),I 

459 RETURN 


460 I=PEEK(P(47)):POKE P(47),PEEK(P(51 


)):POKE Р(51),РЕЕК(Р(53)):РОКЕ P(53),P 
| EEK(P(49)) :POKE Р(49),1 
461 I=PEEK(P(46)):POKE Р(46),РЕЕК(Р(48 


| )):POKE P(48),PEEK(P(54)):POKE P(54),P 
423 I-PEEK(P(2)):POKE Р(2),РЕЕК(Р(47)) 


ЕЕК(Р(52) ):РОКЕ P(52),I 
462 I-PEEK(P(12)):POKE P(12),PEEK(P(1) 
):POKE P(1),PEEK(P(34)):POKE P(34),PEE 


7 


K(P(45)):POKE P(45),I 
463 I-PEEK(P(11)):POKE Р(11),РЕЕК(Р(4) 
):POKE Р(4),РЕЕК(Р(35)):РОКЕ P(35),PEE 
K(P(42)):POKE Р(42),1 


464 I-PEEK(P(10)):POKE Р(10),РЕЕК(Р(7) 


):POKE P(7),PEEK(P(36)):POKE P(36),PEE 


- K(P(39)):POKE Р(39),1 


469 RETURN 

90 27=0:A=1:B=5:C=122:GOSUB 910:A=5:B 
-1:C-217:608UB 910:4-5:8-5:0-89:605UB 

910 

902 A-5:B-9:C-249:G0SUB 910:A=9:B=5:C= 
121 :GOSUB 910:A=13:B=5:C=218:GOSUB 910 


909 RETURN 


910 COLOR C:FOR Y=B TO B+2:FOR X=A TO 
A+2:PLOT X,Y:ZZ=ZZ+1 :P(ZZ)=MP+(20*Y+X) 
:МЕХТ X:NEXT Y:RETURN 


71000 DATA 0,254 254,254,258 , 254, 255, 25 


4,0,254,130,130,130,130, 130,254 


MTILITIES 
by Shane Rolin 


base fed Prog T4121 fer 
MicraP ai ne Fikes 


м. м. 
1 REM ХХХ ы хх 


ж 


2 REM %% ACE NEWSLETTER x 
3 REM %% 3662 VINE MAPLE DR xx 
4 REM ** EUGENE, OR 97405 x 
5 REM * $12 YEAR x 
B REM 353535363535253525552555526255552 205505005555 ХХХ 
100 РЕТ 36.363€ 3€ 23€ 03€ XC XXE KU LK LK 
105 REM 

110 REM MICROPAINTER PICTURE LOADER 
115 REM (C)1983 C-SOFTUARE 

120 REM 48k U/DISK req. 

125 REM 

127 REM BY SHANE ROLIN of the 

130 REM -PITTSBURGH,ATARI COMPUTER- 
132 BEN aene ENTHUSIASTS-------- 
134 REM 

135 REM AND A.C.E. EUGENE 9/83 

140 REM лық Ж.Ж. KU KU 
200 DIM 


MACHINE$(31), ауе 
LENAME2$(20) ,DIRECT$(1000):FILENAME1 
"D" 

210 TRAP 470 

220 GOSUB 370 

230 OPEN #2,4,0,"K" 

240 A=PEEK (708) :B=PEEK (708) :C=PEEK(710 
):D-PEEK (712) :MODE=7 : SCRNUM=7680: E=8 : X 
Y=13 

250 GOTO 470 
260 GOSUB 360 
270 FILENAME1$(3,19)=FILENAME2$ 


ЕТ 
$- 


GOTO page 12 


‚слет << ез... өт өн. 


Stan Ockers 


SEM MEME 


ты ПШ 
ШЇ | | 


ЕТ 
Pu - VR 


СТ. 
Eid d-SKETUM IMAGE 





Ж ake ( »nd АА АС» ее” BALTE 
a 


PA Gora fidcs 


1 REM MOL OCC уе 
2 REM 3*9 ACE NEUSLETTER * 
3 REM ** 2662 VINE MAPLE DR жж 
4 REM ** EUGENE, OR 97405 | жж 
5 REM ** $12 YEAR HK 
6 REM халха KKK KKK KEKE 
7 REM *#* PM HELPER 2 ** 
8 REM 5% by x3 
9 REM ** Stan Ockers 


Sept 1983 ** 
жене x 
40 DIM S$(6),IM(19),COLR(3),LUM(3) , XPO 
(3), YPO(3) ,UID(3), IMG(3),F$(15) 

12 GOSUB 10000:GRAPHICS 3 

20 XPO(0)-PEEK(XPOO) : XPO(1) -PEEK ( XPO1 ) 
: XP0( 2) -PEEK (XPO2) : XPO( 3) -PEEK (XPO3) : Y 
PO(O)-PEEK(YPOO) : YPO(1) -PEEK(YPO1 ) 

21 YPO(2)-PEEK(YPO2) : YPO(3) -PEEK ( YPO3) 


| 


165 


%%4.4%.....е.. 
ertt ttn 


CLEAR BOUE 
üa 


: „Үз Y:RÜR 73-1 
TO 10:NEXT J:COLOR Z:PLOT X,Y:PLOT X+ 
1,Y 
3g REM ** CHANGE IF TRIG PRESSED %% 
40 IF 5ТВІС(0)-0 AND 2-1 THEN COLOR 2: 
SLOT X,Y:PLOT X+1,Y:GOSUB 2000:GOSUB 1 
300 
45 IF 5ТА16(0)=0 AND Z=2 THEN COLOR 1: 
3LOT X,Y:PLOT X+1,Y:GOSUB 2200:С0508 1 
300 ! 
49 REM %% MOVE ACCORDING TO JOYSTICK * 
50 S-STICK(0) 
80 IF 5-14 AND Y>O THEN Y=Y-1 
70 IF 5-13 AND Y«19 THEN Y=Y+1 
80 IF S-7 AND X«20 THEN X-X«2 
90 IF 5-11 AND X>6 THEN Х-Х-2 
94 REM ** CHECK FOR KEY PRESSED ** 
Q5 KEY-PEEK( 764) 
100 IF KEY=255 THEN 30:REM * NO KEY, L 
ООР BACK * 
102 IF KEY=62 THEN GOSUB 400:GOTO 25:R 





= 


22 IMG(O)=PEEK(IMGO)/20: 1)= 
(0) "T )/20: IMG(1)-PEEK (IM EM # 15! for save * 


G1)/20: IMG(2)=PEEK ( IMG2) /20: IMG (3) -PEE 
K(IMG3)/20 

23 FOR 1-0 TO 3:C9=PEEK(1694+J):COLR(J 
)-INT(C9/18):LUM(J)-C9-COLR(J):NEXT J 
24 FOR 2-0 TO 3:UID(J)-PEEK(16984J):NE 
XT-J 

25 POKE 764,255:X-10:Y-6 

26 REM * Labels in lines 26-27 in inve 
rse as appropriate * 

27 PLYR20:POKE 712,6:POKE 752,1:POKE 6 
56,0:POKE 657,0:? "О 1 2 3 PLAYER 
":PLYR;" CLEAR INSERT SAVE"; 

28 POKE 656,1:POKE 657,3:? "SPACE=SKET 
CH»IMAGE';:SEL-1:605UB 300:GOSUB 350:P 
OKE 53277,3:POKE 559,62:GOSUB 360 

29 REM ** CURSOR ** 

30 LOCATE X,Y,Z 


110 IF KEY=7 AND SEL<6 THEN SEL=SEL+1: 
GOSUB 300:REM * Next selection right * 
112 IF KEY=6 AND SEL>1 THEN SEL-SEL-1: 
GOSUB 300:REM * Next selection left * 
114 IF KEY-50 THEN PLYR=0:GOSUB 350:RE 
М * Player O * 
115 IF KEY-31 THEN PLYR=1:GOSUB 350:RE 
М * Player 1 * 
116 IF KEY=30 THEN PLYR=2:GOSUB 350:RE 
М * Player 2 * 
11: 
М * Player 3 5 
118 POKE 656,0:POKE 657,19:? PLYR 
120 ТЕ KEY«»14 THEN 130:REM % Not up a 
rrow * 
125 ON SEL GOSUB 210,220,230,240,250,2 
60:GOSUB 350 

8 


240 


IF KEY=26 THEN PLYR=3:GOSUB 350:RE. 


LOR LUM 


130 IF KEY<>15 THEN 150:REM * Not down 
arrow * 

135 ON SEL GOSUB 270,275,280, 285,290,2 
95:GOSUB 350 

150 IF KEY=118 THEN GOSUB 370:REM * CL 
EAR * 

460 IF KEY=119 THEN GOSUB 360:REM * PL 
YR>SKETCH 'INSERT' * 

198 IF KEY=33 THEN GOSUB 1400:REM * SK 
ETCH»PLYR 'SPACE' * 

200 POKE 764,255:GOTO 30 

209 REM * Raise or Lower Values Subrou 
tines * 

210 IF IMG(PLYR)>10 THEN RETURN 

212 IMG(PLYR)=IMG(PLYR )+1 : GOSUB 1403:R 
ETURN 

220 IF COLR(PLYR)»14 THEN RETURN 

222 COLR(PLYR)=COLR(PLYR )+1 : GOSUB 480 
224 RETURN 

230 IF LUM(PLYR)»12 THEN RETURN 

232 LUM(PLYR) -LUM(PL YR) «2: GOSUB 480 
254 RETURN 

IF XPO(PLYR)»254 THEN RETURN 

242 ХРО (PLYR) -XPO(PL YR )+1 : POKE 16684PL 
YR,XPO(PL YR) : RETURN 

250 IF YPO(PLYR)«1 THEN RETURN 

252 YPO(PLYR) :YPO(PLYR) -1 :РОКЕ 1684+PL 
YR, YPO(PLYR) : RETURN 

260 IF UID(PLYR)-O THEN UID(PLYR)-1:60 
TO 264 

262 IF WID(PLYR)=1 THEN UID(PLYR)-3 
264 POKE 53256+PLYR,WID(PLYR):POKE 169 
8+PLYR,WID(PLYR) 

266 RETURN 

270 IF IMG(PLYR)<1 THEN RETURN 

272 IMG(PLYR )=IMG(PLYR ) -1 :GOSUB 1403:R 
ETURN 

275 IF COLR(PLYR)<1 THEN RETURN 

277 COLR(PLYR) -COLR(PLYR) -1 : GOSUB 480 
279 RETURN 

280 IF LUM(PLYR)«2 THEN RETURN 

282 LUM(PL YR) -LUM(PLYR) -2: GOSUB 480 
284 RETURN 

285 IF XPO(PLYR)«1 THEN RETURN 

286 XPO(PLYR )=XPO(PLYR )-1 : POKE 1668+PL 
YR, XPO(PLYR) : RETURN 

290 IF YPO(PLYR)>254 THEN RETURN 

292 YPO(PLYR)=YPO(PLYR )+1 :РОКЕ 1684+PL 
YR, YPO(PL YR) : RETURN 

295 IF WID(PLYR)=3 THEN WUID(PLYR)-1:60 
TO 298 

297 IF WID(PLYR)=1 THEN WID(PLYR)=0 


‚ 298 GOTO 264 


299 REM * PRINT VALUES LEGEND * 

300 POKE 656,3:POKE 657,13? "ІМС CC 
XPO YPO WIDTH"; 

319 REM * All data in lines 321-326 ir 
inverse chars * 

320 RESTORE 320+SEL:READ S$:POKE 656, 
:РОКЕ 657,1+6*(SEL-1):? 5%; 









































IMG# 
COLOR 
LUM 
ХРО 
ҮР0 
WIDTH 


321 DATA 
322 DATA 
323 DATA ` 
224 DATA 
325 DATA 
326 DATA 
349 REM * PRINT VALUES LINE * 

350 POKE 656,2:POKE 657,4:? IMG(PLYR); 
!!..рПКЕ 657,102? COLR(PLYR);" "РОК 
E 657,16:? LUM(PLYR);" "; 

352 POKE 657,21:? XPO(PLYR);"  ";:POKE 
657,27:? YPO(PLYR);"  ";:POKE 657,34: 
? WID(PLYR); 

354 RETURN 

359 REM % PLYR IMAGE > SKETCH AREA * 
360 P=PMPG*256+256+IMG(PLYR)*20:FOR J= 
0 ТО 19:A=PEEK(P+J):IM(J)=A:POSITION 6 
,J:U=256:FOR K=1 TO 8 

362 Ш-Ш/2:ІҒ A>=W THEN A=A-W:? #63CHRS 
-(2);CHR$(2); :GOTO 366 

364 ? 6; CHR$(1) ; CHR$(1); 

366 NEXT К:МЕХТ 7:РОКЕ 16764PLYR, IMG(P 
- LYR)*20: RETURN 

389 REM * CLEAR SKETCH AREA * 

370 FOR І-0 TO 19:ІМ(І)-0:МЕХТ 1:Х-10: 
Y-6 

372 REM ** PRINT SKETCH AREA ** 

374 COLOR 1:FOR 1-0 TO 19:PLOT 6,J:DRA 
UTO 21,J:NEXT J 

376 RETURN 

399 REM * Save Routine * 

400 A-USR(ADR(OUTVBI$)):POKE 656,1 :POK 
E 657,2:2 "FULL FILENAME FOR SAVE";:PO 
KE 764,255: INPUT F$ 

410 GOSUB 500:GOSUB 600:LIST Ғ%,10000, 
10600:GOSUB 10320:GRAPHICS 3:RETURN 
479 REM * Color Change * 

480 C9=16*COLR(PLYR)+LUM(PLYR):POKE 70 
U4PLYR,CO:POKE. 16944PL YR, C9: RETURN 

499 REM * Re-enter lines to save image 
Ес 

500 GRAPHICS O:POSITION 2,4:FOR 2-0 TO 
5:р-рүрб*256+256+20%7:? 10420410*J;" 
DATA ";:FOR К-0 TO 18 

510 ? PEEK(P«K) 5" ," 5 NEXT К:? PEEK(P+1 
-9)sNEXT 2:2 "CONT" 

520 POSITION 2,0:POKE 842,13:STOP 

530 POKE 842,12 

540 GRAPHICS O:POSITION 2,4:FOR J=6 TO 
11:P=PMPG*256+256+20*J:? 10420-10%2;" 
DATA ";:FOR К-0 TO 18 

550 ? РЕЕК(Р+К);",";:МЕХТ К:? PEEK(P+1 
3) ЕХІ 2:2 "CONT" 

580 POSITION 2,0:POKE 842,13:STOP 

570 POKE 842,12 

580 RETURN 


599 REM * Re-enter lines to save vario 
us values * 

600 GRAPHICS O:POSITION 2,4:? "10360 D 
АТА 0,0,0,0, "; sFÜR J=1668 TO 1678%7 PE 
ЕК(7);",";:МЕХТ J:? PEEK(1679) 

610 ? "10365 DATA 0,0,0,0,"; :FOR J=168 
4 TO 1700:? PEEK(J)5U,"; :NEXT J:? PEEK 
(1701):? "CONT" 

620 POSITION 2,0:POKE 842,13:STOP 

630 POKE 842,12 

640 RETURN 

999 REM ** DELAY SUBR. ** 

1000 FOR I=1 TO 100:NEXT I:RETURN 

1399 REM * Sketch»Image * 

1400 PM=PMPG*256:FOR 1=0 TO 19:РОКЕ PM 
+2564+1+20*IMG(PLYR),IM(1I):NEXT i 

1402 REM * Make sure PM image updated 
* 

1403 POKE 1676+PLYR,240:FOR 2-1 TO 20: 
NEXT J:POKE 1676+PLYR,IMG(PLYR)*20 
1405 RETURN 

1999 REM ** ADD IN POUER OF 2 ** 

2000 IM(Y)-IM(Y)«INT(2* (8-(X-4)/2)40.1 
): RETURN 

2199 REM ** SUB OUT POUER OF 2 ** 

2200 IM(Y)-IM(Y)-INT(2* (8-(X-4)/2)«0.1 
):RETURN 

9999 REM * РМ Module * 

10000 DIM MVPM$(48):RESTORE 10050:FOR 
1-1 TO 48:READ A:MVPM$(J,J)=CHRS(A) : № 
XT J 

10010 A-USR(ADR(MVPM$) ) 

10050 DATA 104,169,0,141,47,2,165,106, 
133,204,55,235,9,1335,205, 155, 10D 

10060 DATA 141,7,212,1659,0,133,203,133 
,205,168,162,8,177,203,145,205,169,0,1 
45,203,136 

10070 DATA 208,245,198,204,198,206,202 
,2085 258.96 

10100 DIM VBI$(124):RESTORE 10150:FOR 
1-1 TO 124:READ A:VBI$(J,J)-CHR$(A):NE 
XT J 

10150 DATA 216,162,0,175,156,5,24,105, 
1,133,206, 105.5, 133,205, 168,0,132, ZEE, 
189,128,6 

10160 DATA: 221 ,132,6,208,85,189,136,6, 
221,140,6,208,8,189,144,6,221,148,6,24 
94,5951894140,6 

10170. DATA 157,136,6,189,152,6,141,157 
» 651.88 344456, 169,0,145,203,200, 206,157 
36,208,248 

10180 DATA 189,152,6,141,157,6,160,0,1 
89,140,6,133,205,189,148,6,133,203,17:7 
‚205,145,203,200 

10190 DATA 206,157,6,208,246,189,148,6 
:157,144,5,230,204,232,226,44, 208,182.17 
6,98,228 

10200 DATA 189,1.52,6,157,128,6,157,0,2 
08,24,144,2534 
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10300 DIM INVBI$(10):RESTORE 10330:FOR 
1-1 TO 10:READ A:INVBI$(J,J)-CHR$(A): 

NEXT J 

10310 DIM QUTVBI$(10):RESTORE 10340:Ғ0 

R 1-1 TO 10:READ A:O0UTVBI$(J,J)-CHR$(A 
):NEXT J 

10320 VBI-ADR(VBI$):HI-INT(VBI/258):LO 

-VBI-256*HI:INVBI$(3,3)-CHR$(LO) : INUBI 

$(5,5)-CHR$(HI) 

10330 DATA 104,160,0,162,0,169,7, 76,92 
2228 

10340 DATA 104,160,98,162,228,169,7,76 
,92,228 

10342 GRAPHICS 0:POKE 752,1:? "INITIAL 

171NG.- <" 

10350 RESTORE 10360:FOR J=1664 TO 1701 
sREAD A:POKE J,A:NEXT J 

10360 DATA 0,0,0,0,165,175,185,195,0,2 

0,40,60,0,20,40,60 

10365 DATA 0,0,0,0,100,100,100,100,20, 

20,20,20,152,0,0,0,0,0,0,0,0,0 

10370 POKE 1692,РЕЕК(106):ХР00-1668:ХР 

01=1669: XP02=1670: XP03=1671 

10380 ҮР00-1684:ҮР01-1685:ҮР02-1686:ҮР 

03-1687: IMGO=1676: IMG1=1677: IMG2=1678: 

IMG3=1679 | 

10386 FOR 2-0 TO 3:POKE 7044J,PEEK(169 

4+J):NEXT J 

10388 FOR 2-0 TO 3:POKE 53256+J,PEEK(1 

6984J):NEXT J . 

10400 PMPG=PEEK(1692):RESTORE 10420:Ғ0 

R 1-0 TO 239:READ A:POKE PMPG*256+256+ 

J,A:NEXT J 

10410 POKE 623,1:A-USR(ADR(INVBI$)):RE 

TURN 

10420 DATA 231 ,195,129,0,0,24,36,38,36 

,44,52,36,100,36,24,0,0,129,195,231 

10430 DATA 231 ,195,129,0,0,24,8,8,8,8, 

8,8,8,8,28,0,0,129,195,231 

10440 DATA 231,195,129,0,0,60,36,4,4,1 

2,24,48,32,36,60,0,0,129,195,231 

10450 DATA 231,195,129,0,0,24,36,4,4,8 

,4,4,4,36,24,0,0,129,195,231 

10480 DATA 231,195,129,0,0,12,20,20,36 

,36,62,4,4,4,4,0,0,129,195,231 

10470 DATA 231,195,129,0,0,28,32,32,32 

,24,4,4,4,36,60,0,0,129,195,231 

10480 DATA 231,195,129,0,0,28,32,32,32 

,56,38,35,35,36,60,0,0,129,195,231 

10490 DATA 231,195,129,0,0,60,4,4,8,8, 

16,16,16,16,16,0,0,129,195,231 

10500 DATA 231,195,129,0,0,24,36,36,36 

,60, 36, 36, 36,36, 24,0,0,129,195, 231 

10510 DATA 231,195,129,0,0,60, 36, 36, 36 

,850,4,4,4,36,60,0,0,129,195,231 

10520 DATA 231,195,129,0,0,46,42,42,42 

222.5425 42 42.42 46. D.:0,128: 195,241 

10530 DATA 231,195,129,0,0,38, 36,36, 36 

,36,36,36,36,36,36,0,0,129,195,231 





PM POKE Source бойт 


Pto ER Move Гор Source Lisirng 
by Stan Ovckers 


by Stan Ockers 


10 ; PM MOVEMENT BY POKES IN VBI 
20 ; 
0000 30 *- $0680 10 ; ROUTINE TO MOVE 8 PAGES AND MAKE ROOM FOR PM GRAPHICS 
0680 40 OLOX #2 44 (1664) 20 ; 
0684 50 NEUX ж. ж (1668) =022F 30 SDMCTL = $022F ;(559) 
0688 60 OLDIMG %- *+4 (1572) -0231 40 SDLSTH = $0231 :(561) 
OB8C 70 NEUIMG %- %4 (1676) -006A SQ RAMTOP = $6A ; (106) 
0690 80 OLDY ж. жуд (1680) -0407 60 РМВАЅЕ = %04047 ; (54279) 
0694 90 МЕШҮ ж. ж (1684) -00С8 70 FRPNTL = $CB ; (203) 
0698 0100 SIZE %- *+4 (1688) -00С0 80 TOPNTL = %С0 (205) 
069С 0110 PMPG %- %4 (1692) 90; 
0690 0120 SIZECNT *= *+1 (1693) 0000 0100 *- $00 
0000 0130 HPOSPO = $0000 (53248) 0000 68 0110 PLA ; Discard count 
ODCB 0140 INDIL =  $CB (203) 0001 4900 0120 LDA #$00 ; Turn off DMA 
oocc 0150 INDIH = $СС (204) 0003 802Ғ02 0130 STA SDMCTL ; for speed 
00с0 0160 IND2L = $CD (205) 0006 AS6A 0140 LDA RAMTOP ; Highest page 
OOCE 0170 IND2H = $СЕ (208) 0008 85СС 0150 STA FRPNTL+1 ; into pointer 
E462 0180 XITVBI = $Е462 000A 38 0150 SEC 
0190 ; 0008 £908 0170 5ВС %%08 ; 8 pages louer 
069E 0200 *- $00 0000 85CE 0180 STA TOPNTL+1 ; into other pointer 
0000 08 0210 CLD ; DEC won't work right without this! ODOF 856A 0190 STA RAMTOP ; Update RAMTOP 
0001 A200 0220 LDX #$00 ; Player index 0011 800704 0200 STA PMBASE ; and PM base 
0003 А09С06 0230 LDA PMPG ; Set pointer.. 0014 A900 0210 LDA #0 ; LO bytes of 
0006 18 0240 CLC 0016 85CB 0220 STA FRPNTL ; pointers 
0007 6901 0250 АОС #$01 0018 85С0 0230 STA TOPNTL 
0009 BSCE 0260 STA ІМО2Н 001A A8 0240 TAY ; Start with index 0 
0008 6903 0270 ADC #%03 ; Other pointer.. 0018 A208 0250 LOX #$08 ; Eight pages 
0000 85CC 0280 STA IND1H ; to PLYRO area 0010 81CB 0260 LOOP LDA (FRPNTL),Y ; Move bytes.. 
ODOF A900 0290 PLYR LDA #$00 001F 91CD 0270 STA (TOPNTL),Y ; doun 
0011 85CB 0300 STA INDIL 0021 АЗОО 0280 LOA #$00 ; Zero out top 
0013 808006 0310 (ПА OLDX,X  ; Has X position.. 0023 91СВ 0290 STA (FRPNTL),Y ; eight pages 
0016 008406 0320 CMP NEWX,X  ; changed? 0025 88 0300 DEY ; Next index 
0019 0055 0330 BNE UPDATX 3; Yes 0026 DOFS 0310 BNE LOOP ; Not finished page 
0018 В08806 0340 LDA OLDIMG,X ; Has image.. 0028 С6СС 0320 DEC FRPNTL+1 ; Down a page 
001Е 008С06 0350 CMP NEWIMG,X ; changed? 002A CSCE 0330 DEC TOPNTL+1 
0021 D008 0360 BNE NUIMG ; Yes 002C CA 0340 DEX ; More? 
0023 809006 0370 LDA OLDY,X ; Has Y position.. 0020 DOEE 0350 BNE LOOP — ; Yes 
0026 009406 0380 CMP NEUY,X  ; changed? 002Ғ 60 0360 RTS 
0029 ЕОЗВ 0390 BEQ NEXT ; No, skip 
0028 BDBCO6 0400 NUIMG LDA NEWIMG,X ; Update old.. 
002Е 9D8806 0410 STA OLDIMG,X 
0031 809806 0420 LDA SIZE,X ; Keep track of.. 
0034 8D9DO6 0430 STA SIZECNT  ; loops 
0037 ВС9006 0440 LDY OLDY,X ; Offset into plyr area 
003A А900 0450 LDA #%00 
003C 91CB 0460 ERASE STA (INDIL),Y ; Erase old plyr 
ООЗЕ CB 0470 INY MICROPAI NTER 
ООЗЕ СЕЗ006 0480 DEC SIZECNT ; More? 
0042 DOFB (0490 BNE ERASE ; Yes URE LO ADER 
0044 BD9806 0500 LDA SIZE,X РІСТ 
0047 809006 0510 STA SIZECNT ; Count loops again by SHANE ROLIN of C-SOFTWARE (C)1983 (48k disk) 
004А А000 0520 LDY #%00 Мо offset this time This program is а useful utility for people who want to view their 
004C 808С06 0530 LDA NEWIMG,X ; Point to.. Micropainter files. The second program is included for persons who 
ООЗЕ 85CD 0540 STA INO2L ; neu image need a fast routine to load in Micropainter files in their own programs. 
| і k-down of the structure of Micropainter Picture Loader: 
0051 BD9408 0550 LOA NEUY,X  ; Fix vert pos.. Here is a brea 
0054 85CB 0560 STA INDIL ; in plyr area LINES: 
0056 B1CD 0570 FILL LDA (IND2L),Y ; Transfer image.. 100-140 REM STATEMENTS 
0058 918 0580 STA (INO1L),Y ; to plyr area 200-360 MAIN PROGRAM—TO LOAD INTO MEMORY AND 
005A СВ 0590 INY DISPLAY THE PICTURE 
005В СЕ9006 0600 DEC SIZECNT  ; More? 370-460 THE STRING m бода m EINE IS READ FROM 
005Е DOFB 0610 BNE FILL ; Yes DATA LINES TO CHARA 
: 470-560 OPENING TITLE SCREEN WITH COMMANDS 
um E Ы E no иена 570.680 CHECKS THE START, SELECT, AND OPTION KEYS AND 
0066 ЕБСС 0640 NEXT ІМС INDIH s Next plyr area MOVES THE CURSOR 
' má 690-730 DETERMINES WHAT THE USER SELECTED 
0068 EB 0650 Is у Next pyr 740-840 ASKS THE USER FOR AN INPUT FILENAME 
cep dioec: CPx #$04 i Finished? 850.940 THIS IS THE SUBROUTINE TO DISPLAY THE DIREC- 
0068 00А2 0670 BNE PLYR ; No TORY OF DISK DRIVE 1 
0060 4C62E4 0680 JMP XITVBI ; Back to Atari VBI 950-1050 ASKS THE USER WHAT FILE TO DELETE 
0070 В08406 0690 UPDATX LDA NEUX,X з; Update X pos.. 
0073 908006 0700 STA OLDX,X ; in shadow 
0076 900000 0710 STA HPOSPO,X ; and register List tart 7 
0079 18 0720 CLC ; go to next plyr isting starts оп page 
007A SOFA 0730 BCC NEXT 
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ТІМҮТЕХТ9 by Dale Lutz 
| 870 FOR 1-1 TO FF:IF ОР=3 THEN LPRINT 4050 POKE 764,255:FOR I=1 TO 30:NEXT I 
a Major Ul of таай 875 ? :МЕХТ I:IF NOT (PG) THEN RETURN — ;IN-PEEK(53278):1F IN-3 THEN CLOSE #4: 


E. POKE 82,0:POKE 752,0:GOTO 500 
oniginadly by Ham Обол, amd. sep PAGE=PAGE+1:SP=LL-(LEN(I$)+INT(LOG 4055 IF IN-6 THEN FUNC=1:POSITION 6,20 
modified by Jim Carr (PAGE ))+6)+LM | :2 " — DELETE PUSH LETTER " 

882 IF OP-5 AND SPAGE THEN FOR 1=1 TO “4060 IF IN=5 THEN FUNC-2:POSITION 8,20 
- 20:SOUND 0,142,10,8:МЕХТ I:SOUND 0,0,0 QUÀ LOCK/UNLOCK PUSH LETTER " 
Tiny est? Change Listing |. ,0:605UB 980 4065 IF IN-4 THEN FUNC=3:POSITION 6,20 
by Dale Lutz 885 IF OP-3 THEN LPRINT SP$(1,5P);I9;" 0!" RENAME FILE KEY TO START" 
| Page ";PAGE:LPRINT :LPRINT :GOTO 895 4070 I=PEEK(764):IF I=33 AND COUNT>26 
890 ? SP$(1,5P);I$;"Page ";PAGE:? :? THEN ? CHR$(125):POSITION 20,0:? "TINY 
| 895 LINE=3:RETURN DOS":POSITION 0,2:? :GOTO 4100 
12 DIM SP$(100)sFOR 1-1 TO 100:5P$(1,1 990 POKE 559,34: "ERROR iM 4075 IF 1<255 AND FUNC THEN ON FUNC GO 
Je" ":NEXT I AT ";256*PEEK(187)«PEEK(186):? "PRESS qto 4300,4340, 4390 


115 MODE-1:LINT-1:PC-0 RETURN TO CONTINUE":INPUT I$ 408C СОТО 4050 

. 370 IF STRIG(0)=0 AND P-LEN(T$)-240 TH 990 CLOSE #3:GOTO 500 4100 IF FLAG*26»COUNT THEN CLOSE #4:0P 
EN P=241:GOTO 300 , 980 POKE 712,8:РОКЕ 1044255 EN #4,6,0,"D:*.*"sFLAG=0 
375 IF STRIG(O)=0 THEN P-LEN(T$)-240:p 989 IF PEEK(764)<>255 THEN POKE 764,25 4110 FLAG-FLAG«1:IF FLAG*26»COUNT THEN 
OKE 207,0 `5:РОКЕ 712,0: RETURN 4130 
505 POKE ST+24,65:POKE 559,34 us GOTO 985 4120 LIMIT=FLAG*26:BOTT=LIMIT-25:FOR I 
560 POKE 764,255:POSITION 20,1:2 "q":p 4800 TP=TP+1:GOSUB 3000:LINT=TEMP:GOTO -BOTT TO LIMIT:GOTO 4040 
OSITION 0,1:0М OP GOTO 2000,290,594,15 715 4130 LIMIT=COUNT:BOTT=FLAG*26-25:FOR I 
00,594 =BOTT TO COUNT:GOTO 4040 
590 REM 4200 INV=O:INPUT #4,A$:IF A$(1,1)-'"*" 


594 POSITION 0,1:? "SET FORMAT CONTROL Tin yh ert? Change Listing 2 THEN INV=128 
5":РОЅІТІОМ 0,6:? "LINE LEFT IN- TAB a. | > — 4205 IF I=COUNT THEN ? A$:RETURN 


PAGE FORM PAGE LINE" 4210 ? CHR$(ASC("A")-14«INV«(I-INT(I/26 
595 ? "SI7E MARG DENT STOP SIZE FEED N )*26 )+26* (I-(INT(I/28)*28)));A$(2) 


UM. INT.":? " ";LL;", "sims", "ым ee ys б _ 4220 RETURN 
nes ; 515 ОР=0Р+1:1Е OP=7 THEN OP=1 D DE 


Ж, E е See тіне 220 ТЕ ОР=В THEN ? "TINYDOS" 4235 IF РЕЕК(764)-255 THEN 4235 
800 ? PG; sLINT:POSITION 0,8:INPU 1:9 "91. > 
560 POKE 764,255:POSITION 20,1:? "Пар 1527 COTO 4020 


T LL,LM, IND, TAB,PS,FF,PG,LINT:P=240:PA | 15 
oLM, IND, TAB, PS,FF PL, OSITION 0,1:0М OP GOTO 2000,290,594,15 2220 OPEN #5,4,0,"K"2GET HS. INICLOSE # 


БЕ=1 00,594,4000 : 
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б (/Раде xx' IS ADDED )" : INPUT #2,1$:1F EEK(195);" AT ":256*PEEK (187) «PEEK (186 


by Dale Lutz 


on ". eN __",, 

LEN(I$) THEN I$(LEN(I$)+1)="/" ):? "PRESS RETURN TO CONTINUE": INPUT I “290 ? FILE "3CHRS(IN); RENH 
630 IF PG THEN ? "SINGLE PAGES (1=YES, % | 

4300 GOSUB 4280:GOSUB 4500:1F LOCK 
0-NO)"; :INPUT SPAGE 960 POKE 752,0:CLOSE #3:GOTO 500 N ? "FILE LOCKED...TYPE KEY RID 
ШК OPH > THEN РОКЕ S235 08REN SHUT 0: agnp GRAPHICS OsPOKE’ 8Т-1,7П%РПКЕ ST+2 oy. | id 
FF DISPLAY TO SAVE TIME 27 К: dg 4250 

4310 ? "Y TO CONFIRM, ANYTHING ELSE TO 
M0 LINE-O: POSITION 0,3:FL-O Т=0:ТВАР 4030:POKE 752,1:? CHR$(125):P че , 
724 ТЕ В=4 ТНЕМ 2400 БАПТЫ. б anyone" 4320 A=PEEK(764):IF A-255 THEN 4320 


Е я А 4325 IF A<>43 THEN 4020 
RU I PSIS- AND OP=5 THEN FOR I-! ТО Р 4053 pnerTTON-0,2:BDKE 82,1: sFUNC=0 : 


А А А -0: ` 4330 ХІП 33,#4,0,0,A$:GO0 02 
THEN GOSUB 880 25 4339 REM LOCK/UNLOCK 


— — е е ° | 4 2 5 2 
728 IF В-16 AND OP=5 THEN ? :? :? :LIN 4030 TRAP 950:CLOSE f4:0PEN #4,6,0,"D: 4340 GOSUB 4280:GOSUB 4500:XIO 35+LOCK 


Е-0:ІҒ PG THEN GOSUB 880 жоп »#4,0,0,A$:GOTO 4020 

811 IF РЕЕК(764)<>255 THEN GOSUB 980 4032 FLAG-O:IF COUNT>26 THEN 4100 4589 REM RENAME FILE--NO FANCY STUFF, 

ИЕ шалын AG) THEN МЕ ОТМЕ ЫТА грав две D TTSpOUNTIBUTTSIRFOR IST СЕЛ eee ИНДЕР FARESPEL 

IF LINE» (PS-FF) THEN 60508 870 TO COUNT 4390 POSITION 2,18:? CHR$(158);CHR$(15 

830 IF OP=3 THEN LPRINT SP$(1,SP);A$:1 додо IF r .TNT(1/26)*26-INT((LImrT-Bgrr ©) 3CHRS(156) 5 

F.LINT-1 THEN FOR І-1 TO LINT-1:LPRINT )/2+1.5) 2. 21 2. 0,2: 4392 2 "PLEASE ENTER UHOLE FILESPEC ІМ 
NEXT I “акбар ы "77 THE":? "FOLLOWING FORM--'D:orig.ext,n 
840 IF OP=5 THEN ? SP$(1,5P);A$:IF LIN 4045 COSUB 4200:NEXT I eu.ext'":POKE 764,255 


а 2424 395 POKE 752,0:INP 
T-1 THEN FOR 1-1 TO LINT-1:? :NEXT I 4047 POKE 82,1:IF COUNT>26 THEN POSITI 4499 PUKE 752,0:INPUT AS 


p. i 4499 REM ROUTINE TO EXTRACT FILESPEC 
500 4048 POSITION 2,18:? "START, SELECT, S à 


ROM DIRECTORY (EXITS UI 
855 IF FL THEN SOO TART+SELECT, OPTION" Y (EXITS WITH A$ SETUP TO 


GO...) | 
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4500 CLOSE #4:0PEN #4,6,0,"0:%.&" 

4510 FOR I=1 TO FLAG*26-26+IN-64 

4520 INPUT #4,A$:NEXT I 

4530 10СК-(А%(1,1)-"%"):А-0 

4540 A=A+1:IF A$(A+3,A+3)=" " THEN 456 
0 

4550 IF A«»8 THEN 4540 

4555 I$-A$(3,10):GOT0 4565 

4560 I$=A$(3,A+2) 

4565 I$(LEN(1$)+1)=".":I$(LEN(I$)+1)=A 
3011,15; 

4570 Ri-"Di":A$(3)-1$:? AS:RETURN 


"TT. еру of fee г 1 ғ 
Пу елт Change Listing 2 
ду Pale Luiz 


Change 


Tiny Text change 3 listing 
оу Dale Lutz 


515 REM DELETE THIS LINE 

530 REM DELETE THIS LINE 

560 REM DELETE THIS LINE 

950 REM DELETE THIS LINE 

960 REM DELETE THIS LINE 

4000 GRAPHICS 0:5Т-РЕЕК(560)»25Б%РЕЕК( 
561 )+4:РОКЕ ST-1,70:POKE ST+2,7:DIM A$ 
(128) ,1$(128) 

4020 CLOSE 74:0PEN #4,6,0,"D:*.*"sCOUN 
T=0: TRAP 4030:POKE 752,1:? CHR$(125):P 
OSITION 28,0:? "TINYDOS" 

4030 TRAP 4020:CLOSE #4:0РЕМ #4,6,0,"D 
e% xN 

4050 POKE 764,255:FOR І-1 TO 50:МЕХТ I 
:IN-PEEK(53279):IF IN=3 THEN FUNC-4:PO 
SITION 6,20 

4052 IF IN-3 THEN ? " RUN PUS 
H LETTER: " 

4070 I-PEEK(764):IF І-33 AND COUNT>26 

THEN ? CHR$(125):POSITION 26,0:? "TINY 
DOS":POSITION 0,2:? :GOTO 4100 

4075 IF I«255 AND FUNC THEN ON FUNC CO 
TO 4300,4340, 4390, 4600 

4599 REM RUN FILE 

4600 GOSUB 4280:GOSUB 4500:RUN A$ 


710 IF XY=15 THEN 950 

720 IF XY=16 THEN ? CHR$(125):POKE 710 
,148:POKE 752,0:END 

730 BOTO 470 

740 ? CHR$(125):FOR Т-1 TO 20:FILENAME 
2%(Т,Т)-" ":FILENAMET1$(T,T)-" ":NEXT T 
750 FILENAME1$="D:" 

760 POSITION 7,7:? "LOAD A PICTURE" 


280 OPEN #1,4,0,FILENAME1$ 

290 GET #1,F 

300 MODE=8:GOSUB 350:РОКЕ SCRADDR,F:SC 
RADDR=SCRADDR+1 : SCRNUM=SCRNUM-1:GOTO 3 


10 770 POSITION 0,10:? “INPUT FILENAME ON 
310 POKE 850,7:PICTURELOAD=USR(ADR(MAC LY(NO 'D:' IS REQUIRED)" 

HINE$),16, SCRADDR, SCRNUM) 780 POSITION 7,12:INPUT FILENAME2$ 

320 CLOSE #1 790 2 :? "МЕШ FILENAME IS D:"sFILENAME 
330 IF PEEK(53279)<>6 THEN 330 2% 

540 GOTO 470 800 ? "IS THIS CORRECT(Y/N)" 

350 GRAPHICS MODE+16:C=0:SCRADDR=PEEK( 810 GET #2,A 

88 )+PEEK (89) *256 820 IF CHR$(A)="Y" THEN 260 

360 РОКЕ 708,A:POKE 709,B:POKE 710,C:P 830 IF CHR$(A)="N" THEN 470 

OKE 712,D:RETURN 840 GOTO 810 

370 FOR READR=1 TO 31 850 ? CHR$(125) 

380 READ A 860 CLOSE #3 

390 MACHINE $(READR, READR )=СНАФ(А) 870 OPEN #3,6,0,"D:*.*" 

400 NEXT READR 880 TRAP 920 

410 RETURN 890 INPUT #3,DIRECT$ 

420 DATA 104,104,104,170,104,157 900 ? DIRECT$ 

430 DATA 69,3,104,157,68,3,104 910 GOTO 880 

440 DATA 157,73,3,104,157,72,3 920 POSITION 25,10:? "PRESS START":TRA 


P 470 
930 IF PEEK(53279)<>6 THEN 930 
940 CLOSE #3:GOTO 470 


450 DATA 32,88,228,192,0,48,1,96 
460 DATA 132,203,96 
470 2 CHR$(125):SETCOLOR 2,0,0:POKE 75 


251 950 2 CHR$(125) 

480 POSITION 6,6:? "MICROPAINTER PICTU 960 POSITION 14,7:? "DELETE А FILE" 

RE LOADER" 970 POSITION 0,10:? "INPUT FILENAME ON 
490 POSITION 10,7:? "(C) 1983 CSOFTUAR LY(NO 'D:' IS REQUIRED)" 

E" 980 POSITION 7,12:1NPUJT FILENAME2$ 


500 POSITION 12,8:? "BY SHANE ROLIN" 990 FILENAME1$(3,19)-FILENAME2$ 

510 POSITION 4,10:? "SELECT FUNCTION A 1000 ? :? "FILE TO ERASE IS ";FILENAME 
ND PRESS START" 1$ 

520 POSITION 11,20:? "FILENAME-";FILEN 1010 ? "IS THIS CORRECT(Y/N)" 

АМЕ2% | 1020 GET #2,A 

530 POSITION 5,13:? "LOAD A PICTURE(EN 1030 IF CHR$(A)-"Y" THEN XIO 33,#1,0,0 
TER NEU FILENAME)" ,FILENAME1$:60TO 470 

540 POSITION 5,14:? "DISK DIRECTORY" 1040 IF CHR$(A)="N" THEN 470 

550 POSITION 5,15:? "DELETE A FILE(OR 1050 GOTO 810 

PICTURE)" 

560 POSITION 5,16:? "QUIT" 
570 POKE 53279,0 

580 POSITION 2,XY-1:? " " 
590 POSITION 2,XY41:? " " 
600 IF XY=17 THEN XY=13 

610 IF XY=12 THEN XY=16 


Listing 2 next month 


NOTE: The listings of this 


isst 


620 POSITION 2,XY:? "--";CHR$(27);CHR$ шеге printed by the new Brother Mode 
(159) 50 daisywheel typewriter with a Brothe 
630 IF PEEK(53279)=7 THEN 630 IF-50 interface. This is a very nice 
640 FOR T=1 TO 50:NEXT T inexpensive (about $400) typewrite 
650 IF PEEK(53279)-5 THEN XY=XY+1 that is slou (12cps) but works well 
660 IF PEEK(53279)=6 THEN 680 The 1 means ESC-CLEAR. Тһе typeuhe 
670 IF PEEK(53279)=3 THEN XY-XY-1 used is a English Quadro 15, reduce 
680 GOTO 570 about 25% in size. 

690 IF ХҮ-13 THEN 740 -M.D 


700 


IF ХҮ-14 THEN 850 
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PMHELPER 2.0 


INTRODUCTION 
By Stan Ockers 


Player Missile Graphics is a very useful technique when a game re- 
quires motion of images or animation. Unfortunately, quite a bit of 
setup is necessary and vertical movement is complex enough to de- 
mand assembly language programming. What if there was a program a 
person could use to help design PM images with a joystick, assign 
them to certain players, choose the colors, sizes and initial positions 
of players and save the result to disk or tape? PMHELPER 2.0 is such a 
program. The finished product can be saved in LIST format so it can be 
merged with a new program. Also included in the saved version are 
lines necessary to implement PM graphics and a Vertical Blank Inter- 
rupt routine which reduces motion of players (either horizontal or ver- 
tical) to POKEs in specified locations. Images can also be changed 
just as easily using POKEs. 


TYPING IT IN 


Listing 1 should be typed in noting the inverse character remarks in : 


a couple of places. The program will work as listed but the initializa- 
tion takes quite some time because of the string initilization. This 
slowness will also follow through to the listed module. The process 
can be speeded up considerably by defining strings directly in the pro- 
gram. It wasn't done in the listing because it makes it very difficult to 
print the listing or ENTER the result. You can however change the pro- 
gram once it is ENTERed from listing 1. 

First ENTER the program as listed, make a copy and then RUN the 
program. Hit RESET to interrupt the program. Now type “? INVBI$” 
(omit the quotes). A number of characters will be printed. Enclose 
them in quotes, then use the CTRL-INSERT keys to move the 
characters to the right. Add “10300 DIM INVBI$(10):INVBI$ =” at the 
beginning and hit RETURN. You have now replaced line 10300 and line 
10330 is now unnecessary so you may delete it. In a similar manner 
you can replace lines 10310 and 10340 by defining OUTVBI$ directly. 
The same can be done with MVPMS, deleting lines 10050-10070 and 
replacing 10000 with “DIM MVPM§$(48):MVPM$=” appropriate 
characters. 

INVBI$ is more complicated. Not only is it too long, it also contains 
characters which cause odd cursor movements when printed. To 
transform it first type in: ‘“?VBI$(1,4);” ‘SVBI$(6,46);” '5VBI$(48,53);" 
“SVBI$(55,64);” “;VBI$(66,72);”. This puts blank spaces where the 
troublesome characters occur. Insert “10100 DIM VBI$(124):VBI$ = " at 
the beginning and leave an extra blank spot at the end when enclosing 
the string in quotes. Now you must fill the blank spots with the ap- 
propriate characters, using the CTRL-Arrow keys to position the cursor 
over them. The first filling at string position 4 uses the sequence ESC- 
CTRL-UP ARROW and produces an inverse upward pointing arrow. All 
other spaces are to be filled with the ESC-CTRL-DOWN ARROW se- 
quence which produces an inverse downward pointing arrow. These 
occur at string positions 47,54,65 and 73 which is the last blank you in- 
serted. Press RETURN to enter this first portion of the string as line 
10100. The second part of the string can be produced with: 
"?VBI$(74,92;" — '5VBI$(94,99;" '5VBI$(101,1155;" '5VBI$(117,118);" 
“-УВ1І%(120,124)”. Blanks at string positions 93,100,116 and 119 should 
be filled using the ESC-CTRL-DOWN ARROW sequence as before. 
Use it in line 10110 with “10110 VBI$(74) =”, followed by the string in 
quotes. You may get rid of lines 10150-10200. All remarks can be 
deleted in this "running" version. These changes should improve the 
initialization time both for PMHELPER 2.0 and for programs using the 
PM module produced by the program. 

USING THE PROGRAM: 

PMHELPER 2.0 is set up for 12 different images (0-11), any one of 
which can be assigned to four different players (0-3). A sketch area of 
8X20 pixels allows designing images using a joystick in PLYR 1 port. 
Pressing the trigger will toggle a pixel between “оп” and "off". Тһе! 
numbers 0 and 1-3 chooses the player, and the player number is in- 
dicated directly below the sketch area. A number of values correspon- 
ding to attributes of the chosen player appear in the bottom of the text 
area. 

You can use the “+” and "*" keys to select values you want to: 
modify and the “-” and “-” keys to change the values. You will see 
the image of the chosen player change when changing values. X and Y 
positioning allows superposition for multicolored images. The width 
of players can also be chosen and will be *remembered" along with 
color and luminance values. Any players you are not interested in can 
be eliminated by setting their X values to position them offscreen. The 
image in the sketch area is not necessarily associated with any player 
until the spacebar is pressed. When space is pressed, the sketch im- 
age will replace an image in memory, the one associated with IM- 
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AGE#. Since this image is associate with the present player, it will 
change also. CLEAR can be used to blank the sketch area and INSERT 
can be used to transfer the image given by IMAGE to the sketch area. 

When you are satisfied with the images you have created, press “5” 
for SAVE. You will be asked for a filename for saving the work. | use 
names like "D:NAME.LST" because files are SAVEd in LIST format for 
addition to another program using ENTER. If you are using cassette, 
use "C1". When you press RETURN you will see some lines listed on 
the screen and some cursor movement. The program is using the 
screen to ENTER new lines before the SAVE. It will return to the pro- 
gram when finished. You will also see some garbage from the PM im- 
ages. Ignore it, your initial PM images will be restored when the pro- 
gram re-initializes. If the program stops with an error message, simply 
re-run it. Your images will return. If you want to modify a previously 
listed image set, stop the program with RESET, ENTER the desired im- 
age set and RUN the program. 

USING THE PM MODULE 

The modules created with PMHELPER 2.0 can be used with very lit- 
tle extra code. The minimum amount appears as follows: 
100 GOSUB 10000 
110 GRAPHICS 0 
120 POKE 53277,3:POKE 559,62 
130 STOP 

Line 100 goes to the module to set up PM graphics and insert your 
images. Of course you must have ENTERed the module in the pro- 
gram. Line 110 represents putting a desired background on the screen; 
any graphics mode changes have to be done before PM graphics is 
hooked in by line 120. If the graphics mode is reset after line 120 the 
PM images smear out over the whole vertical length of the screen. 

X and Y positions of the players can be controlled with POKEs. To 
assist you, the variables XPOO through XPO3 and YPOO through YPO3 
have been set up. These variables DO NOT HOLD THE VALUES OF X 
AND Y POSITIONS, they hold the LOCATIONS where these values are 
stored. To find the Y position of player two you PEEK(YPO2) To 
change the Y position of player two, POKE YPO2,# where # is а 
number between 0 and 255. The code to move player 2 back and forth 
across the screen might look as follows: 

130 DELTA - 1 

140 P = PEEK(XPO2):IF P^200 THEN DELTA =-1 
150 IF P< 50 THEN DELTA = 1 

160 РОКЕ XPO2,P + DELTA:GOTO 140 

Movement doesn't have to be to adjacent positions, but can be 
anywhere on the screen. Try changing the DELTA's above to 2, 3 or 
more. 

Image changes are also handled by POKEs and the variables IMGO- 
IMG3 are set up to help. again, these variables refer locations where 
image numbers are stored, not to the image numbers themselves. 
They represent the storage locations for the image numbers assigned 
to each of the four players. The numbers are not simply 0-11 represen- 
ting the twelve images but must be multiplied by 20. For example, to 
make player one take on image six, POKE IMG1,120. Animation can be 
handled by rotating image numbers. If images 7 through 11 hold 
various figures of a man running, you could make him run in place 
with: 

130 1 = 120:SPEED = 30 

140 I =I + 20:IF 12220 THEN 1 = 140 

150 POKE IMG2,I 

160 FOR J=1 TO SPEED:NEXT J:GOTO 140 

Line 160 is just to adjust the speed and can probably be replaced by 
other code which gives horizontal movement like the previous exam- 
ple. 

LIMITATIONS 

The program does not include missiles and is limited to single line 
resolution. The variable PMPG holds the page where the PM area 
begins so you can write your own routines to handle missiles if you 
wish. The missile area starts at PMPG*256 + 768, (PMPG -- 3 pages). 
The routine reserves 8 pages at the top of memory for the PM area. The 
lowest page of this area is not used for anything so it make a good buf- 
fer to allow for those situations where the program overruns the top of 
memory. For this reason, PM modules should be the last called of 
those which reserve memory. The one page buffer will allow for most 
situations, but not one. If the text area is allowed to scroll, it can move 
things around for more than two pages above RAMTOP. Since the im- 
ages are located at the second page, they will be messed up. 

The program is set up for 12 images, each 20 bytes long. You could 
double this by drawing two images in one sketch area. The numbers 
POKEd into IMGO-IMG3 will be IMAGE# * 10 and the image length 
values in page 6 (bytes 1688-1691) will have to be set to 10. Other com- 
binations are possible because the number POKEd is just a offset 
from the beginning of the image storage area. 

—Stan Ockers 


VARIABLES IN PMHELPER 2.0 


МУРМ6: Holds routine making room for PM graphics at the top of 
memory 

VBI$: Holds Vertical Blank Interrupt routine permitting movement and 
image changes with POKEs 

S$: Used to hold string of inverses characters indicating selected 
variable 

INVBI$: Holds routine to insert VBI. routine 

OUTVBI$: Holds routine to disengage VBI routine 

F$: Filename of module 

COLR(0)-COLR(3), LUM(0)-LUM(3),XPO(0)-XPO(3), Y PO(0)-Y PO(3),IMG(0)-I- 
MG(3): Values of color, luminance, X position, Y position, width and 
image numbers of four players for sketching part of program. 
XPO1-XPOS3,YPO1-YPO3,IMGO-IMG3: Locations to be POKEd with cor- 
responding values of player X position, Y position and image numbers 
for players 

ІМ(0)4М(19); Numbers representing image in sketch area 

C9: Color-luminance combination 

SEL: Player variable selected for changing 

PLYR: Player number 

PMPG: Page where player missile area starts 

X,Y,Z: Horizontal position, vertical position and pixel color under cur- 
sor 

S: Joystick value i 

KEY: Value of keyboard key pressed | 

VBI, НІ, LO: Used іп determining address of VBI routine 


PAGE 6 LOCATIONS USED IN PMHELPER 2.0 
1664-1667: OLD X POSITIONS PLAYERS 0-3 
1668-1671: NEW X POSITIONS PLAYERS 0-3 
1672-1675: OLD IMAGE ASSOCIATED WITH PLAYER 
1676-1679 NEW IMAGE ASSOCIATED WITH PLAYER 
1680-1683: OLD Y POSITION PLAYERS 0-3 
1684-1687: NEW Y POSITION PLAYERS 0-3 
1688-1691: SIZE OF PLAYERS 0-3 
1692: PAGE WHERE PM AREA STARTS 
1693: TEMPORARY COUNTER LOCATION 


COMPUTER CUBE 


Program Description 
LINES: 

10 ОРЕМ5 he keyboard for input. 

100-105 Redefines the required characters and duplicates the rest of 
the character set. 

120 Finds the memory position of the first character on the first line 
of the screen. 1 use this as a point of reference as | POKE the 
characters on the screen. This is much faster, and | only need one 
variable to store the coordinates of a block in the cube. 

200-212 Set up the initial screen display and put up the title. 

215-216 Determine if a key or 

START 
is pushed and loop if not. 

220-224 Check for valid key input and loop if not. 

226-231 Print appropriate face name for key pushed. 

240-241 Print the chosen direction CL or AC. 

245 Goes to subroutine to rotate the chosen face. 

300 Randomly chooses a subroutine to mix the cube. This is 
repeated as many times as you select (3-20). 

310-469 Contain the above mentioned subroutines. Their operation 
should be reasonably clear. They just shift the values of blocks which 
will be moved when that face is rotated. 

900-910 Set the correct values to reset the cube if you give up. 

1000 Data for the new characters. 


INSTRUCTIONS: 


First, select the number of random moves you wish the computer to 

make. Push 
SELECT 
and the number appears at the bottom left corner of the screen. 

Press 

START 
when ready to play and the computer will mix up the cube. Now press 
the key to select the face: B = back; T = top; D = down; F = front; L 
= left; R = right. The diagram at the top shows this and also which 
face is which. 

After the name of the face appears at the bottom of the screen, 
press the key for the direction: A — anti-clockwise; C — clockwise. 
Now the computer will move the face for you and wait for new instruc- 
tions. Press 

START 
at any time to give up. 

Remember: type the program exactly as listed, except for REMs. 

— Sydney Brown 
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ASTROLOGY 


ASTROLOGY: A LOOK INTO THE FUTURE 
by SAM ROBERTS; ELCOMP Publishing Co. Book: #171, $9.95; Book & 
Disk: #7223, $29.95 


For those of you interested in exploring the world of astrology, 
without a large investement in software, this book may be just what 
you need. 

The book is intended to be complete in itself without buying the op- 
tional program disk. But it is not really so simple, because the disk 
contains utilities not in the book. 

Part one of the book is a brief view of astrology in general. There are 
many excellent books for the beginner in your local bookstore or 
library. | suggest you skip part one and get one of these. Part two con- 
tains a program listing which you can type in and use to calculate birth 
charts for your families and friends. 


The program is the interesting part of the book. It takes a bit to type 
it in (6 half-pages of code), but with patience and/or typing skill it 
shouldn't prove too difficult. Debugging might be difficult for so- 
meone without experience in both computing and astrology. But if you 
type it in exactly as in the book it should run fine, right? Well, yes and 
no. 

The graphics part of the program, which will print the wheel to the 
screen, uses a custom character set for the signs of the Zodiac and 
the symbols for the planets. They provide the data for the characters in 
the back of the book. To load the character set into memory, use the L 
option in DOS to load ASTRO.BIN. Without the character set in 
memory, you can still calculate a chart, but when you try and draw the 
wheel on the screen it will be empty. 

Now to cast some charts! To calculate a birthchart the following in- 
formation is needed: 1) the date and year of the person's birth; 2) a 
verifiable, accurate time of birth, and; 3) the location of birth (latitude, 
longitude, and time Zone). A birth certificate, family or hospital 
records will usually supply the date and time. An atlas will supply the 
coordinates. You have to be very careful about daylight savings time 
and time zone changes — the only way to assure accuracy is by refer- 
ing to a book titled “time changes in the U.S.", by D.C. Doane. Other 
than this the data is fairly easy to aquire. 

Once you have the data gathered and ready, load the character set 
and RUN the main program. The program will prompt you to type in the 
birth data: you have to be very careful of the format of entry — for ex- 
ample, a latitude of 123 degrees, 4 minutes, and 18 seconds (Eugene, 
OR) has to be entered 123.0418. The input routines are primitive and 
some of the prompting is ambiguous. There is no real error checking 
and the program is easily crashed. Worse yet, you could unknowingly 
input the wrong data and get an inaccurate chart. It's a good idea to 
test the program with a chart from a book to have something to com- 
pare against. If the results are within a degree or so all around then 
you're ok. 

Assuming you've got the data in correctly, you will be rewarded with 
an accurate listing of the signs and degrees of the 12 house cusps 
(see your astrology book for definitions). The listings are in 360 degree 
notation, which means you have to transpose them to Zodiac note to 
get the sign involved. Each sign is 30 degrees. So Aries is from 0 to 29 
degrees, Taurus is from 30 to 59, and so on to Pisces, 330 to 359. So 
347 degrees is 17 degrees of Pisces (347 — the sign). After a while this 
will come naturally. 

When ready to continue, hit return and you will have a listing of the 
position of each planet (Sun and Moon included) at the time of the per- 
son's birth. Hit return again for a tabulation of aspects, or angular rela- 
tionships between the planets. Then hit return a final time, and the 
program will begin to plot all this data onto a chart on the screen. It 
draws very slowly (GR.8), but it is one of the nicest computer charts 
l've seen. There is a program to dump to an Epson printer on the disk, 
but not in the book. | imagine any screen dump utility will do as well. 

What we have here is a low priced program to allow you to begin to 
discover astrology for yourself — what it can and cannot do. If you 
want to “tell the future", as the title implies, save your money. The ac- 
curacy of the calculations is adaquate for the average user. It is not an 
easy program to use, but once you've figured it out you will be able to 
generate all the charts you like. If you plan to buy the disk, there are 
other more versatile and powerful programs now available for the Atari 
from Matrix Software, 315 Marion Ave., Big Rapids, MI 49307. I strongly 
endorse these for the serious astrologer. 

As both an astrologer and computer enthusiast, | can appreciate the 
effort involved in writing good astrological software. | can't escape the 
feeling, however, that this package needed a bit more polishing before 
being released on the general market. 

—Jiva 


| invite anyone with an interest in astrological software, research to 
share, or questions, to write me at: 1476 S. Brooklyn, Eugene, OR 
97403 


BENIOFF AT LARGE 


LOOKS АТ: ATARI 1200XL 

A few months ago, when ATARI released the 1200XL, | ran out and 
bought one. The cost of the computer was $899.00. When | made the 
purchase, | knew | was going to have some software problems. | knew 
it might not be the computer of the future. But | was looking for a 
change. 

Whenever | mention | own а 1200, | always hear snickers and smirks. 
People say things like, “Why did you buy it?" This article is intended 
to clear up alot of the confusion and myths of the 1200. And, it is well 
warranted — because the new machines (600XL, 800XL, 1400XL, 
1450XL) will have the same operating system. Yes, you heard me right. 
Benioff goes in search of: ATARI 1200XL. 

What about software? This question is an important one. Yes, there 
are some things which do not work on the 1200. For example, most of 
Synapse's older versions do not work. Most word processors do not 
work, including the ATARI word processor! Most third party carts do 
not work (excluding ROMOX). So, what is a poor 1200 owner to do? 
Well, it is not as bad as it seems. | use the ATARIWRITER. It is the new 
ATARI word processing program. ATARI axchanged it with me for my 
old ATARI word processor. It is better than any word processor written 
so far. Of course, | still can't use a spelling checker. Spell Wizard 
doesn't work, and Datasoft keeps trying to correct the problem, and 
can't. | think about 10% of the current software doesn't work. The key 
here is: companies are currently changing their software to work on 
the 1200. So, software is a problem, but it is currently being corrected. 

Let's take into consideration the good parts of the 1200. These in- 
clude the excellent keyboard. ! think it is like typing on feathers. It is 
leaps and bounds above the 800s. The terrific changes in the operating 
system. The addition of a "help" key. The recessed function strip at 
the top of the keyboard. The elongated shift and delete keys. All of the 
wires hanging directly out of the back. This makes the 1200 a superior 
machine to the 800. 

Would | buy it again? Yes. Of course, | would only have to pay 
$299.00. This price is teriffic. | want to thank Dennis Wallin at Datasoft 
for trying to get me a Spell Wizard to work on the 1200. If he does, | will 
let you know in the next issue. 

| am going back to school tommorrow, so | may have an erratic 
schedule. If not, an erotic schedule. 

— Marc Benioff 
31 West 28th Street 
Los Angeles, CA 90007 


BRYAN'S ARCADE 


This month І received two new games, both on ROM cartridges. The 
games are Mr. Cool from Sierra On-Line and the second is Flapper, a 
new game from ROMOX written by the great reviewer Marc Benioff. 

Mr.Cool is a Q*Bert type game. The object of the game is as 
follows. You аге ап ice cube and your mission is to make the “Hot 
Plates" cold. You make them cold by jumping on them and changing 
their color. You have to keep jumping on them until they are the same 
color as the color at the top of the screen. On certain screens you have 
to jump on them three or four times until they get to be the color you 
want them to be. 

Obstacles include hot springs which fly across the screen and if 
they barely touch our hero Mr.Cool, he'll instantly melt. There are two 
other obstacles. One is another type of hot spring which jumps down 
the pyramid of ice cubes and tries to make Mr.Cool melt. Your only 
other threat is the bonus which runs down at an amazingly fast rate 
and when it gets to zero you will instantly melt. 

Overall Mr.Cool is a great game and a pretty good Q*Bert type 
game. The sound effects aren't too good, but the graphics are pretty 
good. There is room for improvement. | recommend Mr.Cool to 
anybody who likes Q*Bert in the arcades it's definitely worth the 
money. 

Flapper is an interesting and totally original game designed by Marc 
Benioff for ROMOX, Inc. You are Flapper. Flapper is a little blue and 
pink bird whose goal is to “рор” the fruit with a jack straw. There are 
four rows of fruit with five in each row. Flapper has to pop all of the 
fruit in each row while avoiding the Sprinklers and Aggrobots (1 didn't 
think up the names). You have to pop all of the fruit before the sun 
goes down. 

Flapper has excellent music which was written by Marc's grand- 
mother. Russ Wetmore programmed it (the same guy who wrote and 
did the music for Preppie and Preppie II). That's why the music sounds 
50 good. The graphics are pretty good, you can even see Flapper's 
wings move when he flies. 

Well, that's all for this month! Gotta go, 

— Bryan Dunn 
Games Editor 
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COMMUNICATIONS 


Information recovery is an important part of my business as a 
private investigator. When people inquire how I recover so much infor- 
mation for my clients, | respond "through my computer." Where else? 
Sure, there is a lot | need to know in fact finding. But through com- 
puter research | can cut the time of search, cutting the cost of my ser- 
vices. 

І have over 366 databases available to my office through my modem. 
One of the more recent discoveries is the well-known Telex and TWX 
services. 

Western Union has offered this service since he days of early 
teletype. Now | сап get high-speed, low-cost link to over 1.5 million 
concerns world-wide through a new Western Union service called 
"Easylink Service". 

Clients may inquire what type of computer | use in my offices. 1 
hesitate. Atari, of course! | have two Atrai's in full function. By utilizing 
my Hayes Smartmodem and Datasoft's "Tele-talk" modem program, | 
can access any database out there. Western Union has an extensive 
Telex directory and Buyers' Guide listing other subscribers. Off peak 
transmission is available at significantly reduced rates. There is no 
minimum usage and no long-term commitments with Western Union. 
Now І can send Mailgrams, Telegrams and Cablegrams anywhere. 

The service also has a high-speed store and forward message ser- 
vice. Through their “Electronic Mailbox" they will hold messages until 
you call and retrieve them. The best part, of course, is the toll free 
number you can use to access their system. If you desire you can get 
on the auto-receive mode to receive responses or messages im- 
mediately. In order to use the system, all you need is modem, soft- 
ware, computer, printer (optional). The software must be able to accept 
even parity, seven data bits and one stop bit. Basically what all this 
means is a good program and modem. 

Most of the programs out there will work. | have experienced pro- 
blems with Telelink |, however. The initial cost to sign up for this ser- 
vice is $35. The monthly charge is also $35. There is also a cost for the 
actual calls. | recommend this type of service is you use or are in- 
terested in expanding your communication potential. If you want more 
information, call your local Western Union office. 

— Dennis Hettman 


CLOAD ERRORS 


| am another new Atari owner who was plagued with excessive 
CLOAD errors. Armed with a copy of the April, 1983 issue of Antic, | 
added several test points in an effort to determine where the actual 
failure occurred. The data out-line appeared to һауе an excessive 
amount of jitter when viewed on a dual trace oscilloscope along with 
the output of the active filters. 

І modified the diode/RC networks between the active filters and the 
comparator as a possible cure, after checking the DC regulator to the 
motor drive for ripple. 

The attached diagrams showing the 410 circuitry show my modifica- 
tions. | have had NO CLOAD errors since. 

To insure it was not a cold solder joint or other problem | may have 
corrected by the addition of test points, | obtained another 410 with 
similar problems. After doing the simple modification and alignment, 
its operation also significantly improved. It was an older model 410 
which had a different parts layout, but the circuitry was the same. The 
owner of this machine has not reported a CLOAD error since. 

While this modification is not much more difficult than the resistor 
replacements, the alignment requires test equipment not normally 
found in the home. Any competent stereo service shop can do the 
alignment in a few minutes time. Certainly no more than an hour. 


Atari 410 Modification & Alignment Procedure: 


This adjustment dynamically sets the signal circuit to the mid point 
between the mark and space frequencies used. 

1. Remove R-19 (330 K оһт); 

2. Choose a suitable location on the PC board and install either a 
500 K ohm mult. turn pot., or any series combination of fixed resistor 
and pot. which will give a range from approximately 250 K ohm to 350 
K ohm; 

3. Connect this pot. or combination directly in place of the removed 
R-19; 

4. Set the pot. to maximum resistance 

5. Connect a DC coupled oscilloscope or high Z voltmeter to the 
data out line (pin 3) and ground; 

6. Connect an audio oscillator set at 4660 Hz to the limiter amp in- 
put and ground; 

7. Condition the 410 for play mode — this can be done by pressing 
the PLAY button and POKEing 54018,52 or by applying a +5\/ to the 
recorder motor on line (pin 4); 

8. Adjust the potentiometer until a DC transition, or instability, ос- 
curs on the data out line. 

— Stephen E. Matern 
Vice-President, Bonneville Atari Group 


IYPESEITING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line’ 
And it’s easy to encode your copy with the few typesetting 
commands you need. 


COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


echting & Design Services 


ING. 
30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


MEETING! 
Weds Sept 14, 7:30 


Forum #308 LCC 


Door Prizes donated by 
Computer Tutor 


^ Atari 
A. |\Comeuter 


ў ENTHUSIASTS : 
3662 Vine Maple Dr. Eugene OR 97405 


FIRST 
CLASS 
MAIL. 








Atari Computer Enthusiasts 


A.C.E. is an independent, non-profit and tax exempt computer club 
and user's group with no connection to the Atari Company, a division 
of Warner Communication Company. We are a group interested in 
educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 

All our articles, reviews and programs come from you, our members. 

Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $10 a year for U.S., and $20 a year Overseas 
Airmail and include about 10 issues a year of the ACE Newsletter. 

Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 


President—Kirt Stockwell, 4325 Sean , Eugene, ОН 97402 / 
503-689-5355 
Vice Pres—Larry Gold, 1927 McLean Blvd., Eugene, Or 97405 / 
503-686-1490 
Secretary —Charles Andrews, РОВ 1613, Eugene, Or 974401613 / 
503-747-9892 
Librarian—Ron and Aaron Ness, 374 Blackfoot, Eugene, Or 97404 
(503)689-7106 
Editors—Mike Dunn, 3662 Vine Maple Dr. Eugene, Or 97405 / 
503-344-6193 

Jim Bumpas, 4405 Dillard Rd., Eugene, Or 97405 / 
503-484-9925 
E.R.A.C.E. (Education SIG Editor)—Ali Erickson, 295 Foxtail Dr., 
Eugene, Or 97405 / 503-687-1133 
E.R.A.C.E. Corresponding Secretary—Robert Browning, 90 W. Myoak, 
Eugene, OR 97404 (503) 689-1513 


Send 276 in Stamps to the Ness’ for the new, updated ACE 
Library List!! 
(or 506 Overseas) 

Bulletin Board 

(503) 343-4352 
On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 4 double-density 
disk drives with the ATR 8000, an Atari 825 printer, a Hayes 
SmartModem; running the ARMUDIC Bulletin Board software written 
by Frank L. Huband, 1206 N. Stafford St., Arlington, VA 22201. See the 
Nov ‘82 issue for complete details. 


